Memunculkan isi TextBox ke ListBox VB6

Mengawali bulan desember ini saya akan sedikit posting yang udah basi tapi semoga bisa bermanfaat buat kalian yang membutuhkan. Kali ini akan membahasa cara memunculkan isi dari textbox ke dalam listbox, langsung aja ke tutorialnya.

Buat form seperti diatas, atau sesuaikan dengan project yang sedang kalian buat,
kemudian di Command1 atau tampilkan ketikan coding berikut :

Private Sub Command1_Click()
List1.Clear
List1.AddItem "Kode barang    : " & tkode.Text
List1.AddItem ""
List1.AddItem "Nama barang   : " & tnama.Text
List1.AddItem ""
List1.AddItem "Jumlah             : " & tjumlah.Text
List1.AddItem ""
List1.AddItem "Harga              : " & tharga.Text
List1.AddItem ""
List1.AddItem "Total Harga     : " & ttotal.Text
End Sub


Simple ya, kemudian Running dan hasilnya seperti berikut

Jangan lupa beri komentarnya ya :)