Private Sub Command2_Click()
If List1.ListIndex >= 0 Then
List1.RemoveItem List1.ListIndex
End If
Label3 = List1.ListCount

End Sub

Private Sub Command3_Click()
List1.Clear

End Sub

Private Sub Command4_Click()
End

End Sub

Private Sub Form_Load()
List1.AddItem "01國文"
List1.AddItem "02數學"
List1.AddItem "03自然"
List1.AddItem "04社會"
List1.AddItem "05英文"
Label3 = List1.ListCount

End Sub

Private Sub 加選_Click()
List1.AddItem Text1
Label3 = List1.ListCount

End Sub