Untuk menampilkan userform3 dan mengisi textbox dari listbox yg di userform1
Di tulis dalam event doble clik listbox
Privat sub listCaridblclik
if listCari.listindex < 0 then exit sub
Userform3.Textbox1 = listCari. List (listCari. Listindex, 0)
Userform3.show
End sub
Tidak ada komentar:
Posting Komentar