make a list and add to the

want to make like this? list, add, series, send, clear, sum, sequence, etc

 

 

 

This exciting program, you can implement this program in good time. This program is very useful for the novice user visual basic

 

Private Sub Command1_Click()

Dim i As Integer

Dim stat As Boolean

stat = True

For i = 0 To List1.ListCount - 1

If List1.List(i) = Text1.Text Then

stat = False

Exit For

End If

stat = True

Next

If stat = True Then

List1.AddItem (Text1.Text)

Else

MsgBox "existing"

End If

Text1.Text = ""

Label1.Caption = "Jumlah: " & List1.ListCount

End Sub

Private Sub Command2_Click()

List2.AddItem List1.List(List1.ListIndex)

List1.RemoveItem (List1.ListIndex)

Label1.Caption = "Jumlah: " & List1.ListCount

Label4.Caption = "Jumlah: " & List2.ListCount

End Sub

Private Sub Command3_Click()

List1.AddItem List2.List(List2.ListIndex)

List2.RemoveItem (List2.ListIndex)

Label4.Caption = "Jumlah: " & List2.ListCount

Label1.Caption = "Jumlah: " & List1.ListCount

End Sub

Private Sub Command4_Click()

List1.Clear

Label1.Caption = "Jumlah: " & List1.ListCount

End Sub

Private Sub Command5_Click()

List2.Clear

Label4.Caption = "Jumlah: " & List2.ListCount

End Sub

Private Sub List1_Click()

Label2.Caption = List1.List(List1.ListIndex)

Label3.Caption = "Urutan: " & List1.ListIndex + 1

End Sub

Private Sub List2_Click()

Label5.Caption = List2.List(List2.ListIndex)

Label6.Caption = "Urutan: " & List2.ListIndex + 1

End Sub

 

note :

jumlah = sum

urutan = sequence