[kslawy]

كود :

Dim bool As Boolean = False
    Private Sub Button1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then
            If bool = True Then
                bool = False
                Me.Button1.Font = New Font("Tahoma", 12, FontStyle.Regular)
            Else
                bool = True
                Me.Button1.Font = New Font("Arial", 14, FontStyle.Bold)
            End If
        End If
    End Sub