' Visual Basic Font Change
' Terrence Ma
' Modified from Visual Basic 5 Step by Step

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Image1.Tag = "Up" Then
        Image1.Picture = Image4.Picture
        Label2.FontBold = True
        Image1.Tag = "Down"
    Else
        Image1.Picture = Image7.Picture
        Label2.FontBold = False
        Image1.Tag = "Up"
    End If
End Sub

Private Sub Image2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Image2.Tag = "Up" Then
        Image2.Picture = Image5.Picture
        Label2.FontItalic = True
        Image2.Tag = "Down"
    Else
        Image2.Picture = Image8.Picture
        Label2.FontItalic = False
        Image2.Tag = "Up"
    End If
End Sub

Private Sub Image3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Image3.Tag = "Up" Then
        Image3.Picture = Image6.Picture
        Label2.FontUnderline = True
        Image3.Tag = "Down"
    Else
        Image3.Picture = Image9.Picture
        Label2.FontUnderline = False
        Image3.Tag = "Up"
    End If
End Sub