Private Sub cmdll_Click()

txthoten = ""

txtholot = ""

txtten = ""

txthoten.SetFocus

End Sub

Private Sub cmdthoat_Click()

Dim x As String

x = MsgBox("Ban muon thoat?", vbOKCancel + vbQuestion + vbDefaultButton1, "Thong bao!")

If x = vbOK Then

End

End If

End Sub

Private Sub cmdxl_Click()

Dim holot, ten, ht, dem As String

Dim m, n As Byte

ht = Trim(txthoten)

n = InStr(1, ht, " ")

holot = Left(ht, n - 1)

m = Len(ht)

Do While Mid(ht, m, 1) <> " "

m = m - 1

Loop

ten = Mid(ht, m + 1)

dem = Mid(ht, n + 1, m - n)

txtholot = UCase(holot & " " & dem)

txtten = UCase(ten)

End Sub