Public Class Form1 Public Class Barang Public kode As String = 5 Public nama As String = 10 Public satuan As Decimal Public jumlah As Integer Public uang As Integer Public Property mKode() As String Get Return kode End Get Set(ByVal value As String) kode = value End Set End Property