Dim A(3)

Private Sub List1_Click()
A(0) = 4
A(1) = 4
A(2) = 3
Text1.Text = List1.List(List1.ListIndex)
Text3.Text = A(List1.ListIndex)

End Sub
Private Sub Command1_Click()
Text4.Text = Val(Text2.Text) * Val(Text3.Text)
End Sub

Private Sub Command1_Click()
List1.AddItem Text1.Text
Label2.Caption = List1.ListCount * 2
Text1.Text = ””
End Sub

Private Sub Command2_Click()
List1.RemoveItem List1.ListIndex
Label2.Caption = List1.ListCount * 2
Text1.Text = ””
End Sub

Private Sub Command3_Click()
List1.Clear
Label2.Caption = List1.ListCount * 2
Text1.Text = ””
End Sub

Private Sub Command4_Click()
End
End Sub
Private Sub Form_Load()
Label2.Caption = List1.ListCount * 2
End Sub