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

老師老師

廠商他把英文把錯了

是FOur

  Future

希望FOur  Future可以粗體字

段考日,穿制服!

請大家告訴大家!!

哦!?  說不定喔 為了省錢把皮帶留下來用是有可能的^ ^

可以去確認確認喲~~XD

終於有點貓的樣子了 不過還是滿像老鼠的

妳家老鼠真可愛

白目

根本就是老鼠吧= =...??