Chon thang nam
Private Sub co1_Click()
l2.Caption = "Thaùng : " & co1.Text
End Sub
Private Sub Form_Load()
For i = 2000 To 2010
For J = 1 To 12
co1.AddItem J & "/" & i
Next
Next
End Sub
Bạn đang đọc truyện trên: Truyen2U.Com
Private Sub co1_Click()
l2.Caption = "Thaùng : " & co1.Text
End Sub
Private Sub Form_Load()
For i = 2000 To 2010
For J = 1 To 12
co1.AddItem J & "/" & i
Next
Next
End Sub
Bạn đang đọc truyện trên: Truyen2U.Com