nammmm
Private Sub Command1_Click()
Dim X, Y, I As Integer
Dim K, L As String
X = Value(TS1)
Y = Value(TS2)
For I = X To Y
End Sub
Private Sub Command2_Click()
TS1 = ""
TS2 = ""
TSC = ""
TSL = ""
TTC = ""
TTL = ""
TTCL = ""
TS1.SetFocus
End Sub
Private Sub Command3_Click()
Dim X As String
X = MsgBox("BAN CO MUON THOAT KO?", vbOKCancel + vbQuestion + vbDefaultButton1, "BANG THONG BAO")
If X = vbOK Then
End
End If
End Sub
Bạn đang đọc truyện trên: AzTruyen.Top