Private Sub cmdAdd_Click()
List1.AddItem Text1.Text
End Sub
Private Sub cmdClear_Click()
Text1.Text = “”
Text1.SetFocus
End Sub
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub Form_Load()
List1.Clear
End Sub
Private Sub cmdAdd_Click()
List1.AddItem Text1.Text
End Sub
Private Sub cmdClear_Click()
Text1.Text = “”
Text1.SetFocus
End Sub
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub Form_Load()
List1.Clear
End Sub