kenneth659 Thu May 27, 2010 1:53 pm
You can go through this code:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click
ToggleStyle(Font.Bold)
End Sub
Private Sub ToggleStyle(ByVal style As FontStyle)
Dim Font1 As New Font(Button1.Font, Button1.Font.Style Xor style)
Dim Font2 As New Font(Button2.Font, Button2.Font.Style Xor style)
Button1.Font = Font2
Button2.Font = Font1
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Button1.Font = New Font(Button1.Font, FontStyle.Bold)
End Sub
End Class
___________________________________
Bodybuilding SupplementsSupplements