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