Kakak senior mohon pencerahan,

Saya punya listbox7 berisi entry (A,B,C....)
Saya akan pindahkan entry kedua (index ke 1 = "B")

ke listbox39 pada entry pertama / index 0
sekaligus menghapus "B" pada listbox7 tadi

Problem :
"B" pada listbox7 mau pindah ke listbox39 index 0
tapi yang terhapus pada listbox7 selalu entry pertama /
index 0

mohon koreksi coding dibawah :

Private Sub Command35_Click()
Dim n As Integer
For n = 0 To (List7.ListCount - 1)

If List7.Selected(n) = True Then
List39.AddItem List7, Index
End If
Next
List7.RemoveItem Index
Label32.Caption = List7.ListCount
End Sub 

Terima kasih sebelumnya

Bambang Mahfudin

Kirim email ke