Private Sub Command1_Click()

If MsgBox("BAÏN MUOÁN THOAÙT KHOÂNG", vbYesNo + 16 + vbDefaultButton1, "THOÂNG BAÙO") = vbYes Then

End

End If

End Sub

Private Sub Command2_Click()

Dim c, kt As String

Dim M, DEM As Integer

c = t1

kt = t3

M = InStr(1, c, kt)

DEM = 0

If t3.Text <> "" Then

Do While M <> 0

DEM = DEM + 1

c = Mid(c, M + Len(kt))

M = InStr(1, c, kt)

Loop

L6.Caption = Str(DEM)

End If

End Sub

Private Sub Command3_Click()

Dim c, CC As String

Dim M, DEM As Integer

c = t1.Text

CC = t2.Text

M = InStr(1, c, CC)

DEM = 0

Do While M <> 0

DEM = DEM + 1

c = Mid(c, M + Len(CC))

M = InStr(1, c, CC)

Loop

L5.Caption = Str(DEM)

End Sub

Private Sub Command4_Click()

Dim A As String

Dim b As Integer

A = Trim(t1.Text)

Do While InStr(1, A, " ") <> 0 'thay hai ki tu rong bang mot ki tu rong

A = Replace(A, " ", " ")

Loop

t1.Text = StrConv(A, vbProperCase)

End Sub

Private Sub M2_Click()

A = Shell("C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE")

End Sub

Private Sub M3_Click()

b = Shell("C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE")

End Sub

Private Sub M4_Click()

c = Shell("C:\Program Files\Microsoft Office\OFFICE11\POWERPNT.EXE")

End Sub

Private Sub Timer1_Timer()

If TT = True And I <= 40 Then

I = I + 1

l1.FontSize = I

Else

TT = False

If TT = False And I > 10 Then

I = I - 1

l1.FontSize = I

Else

TT = True

End If

End If

l1.ForeColor = Rnd(256) * 100000

End Sub