Menu: Strip Menu (project>properties>starup form: menu)
Public Class Form1
Private Sub TextBox1_TextChanged(sender As Object, e As
EventArgs) Handles [Link]
[Link] = [Link]
End Sub
Private Sub CheckBox1_CheckedChanged(sender As Object, e As
EventArgs) Handles [Link]
[Link] = [Link]
[Link] = False
[Link] = False
[Link] = False
End Sub
Private Sub CheckBox2_CheckedChanged(sender As Object, e As
EventArgs) Handles [Link]
[Link] = [Link]
[Link] = False
[Link] = False
[Link] = False
End Sub
Private Sub CheckBox3_CheckedChanged(sender As Object, e As
EventArgs) Handles [Link]
[Link] = [Link]
[Link] = False
[Link] = False
[Link] = False
End Sub
Private Sub CheckBox4_CheckedChanged(sender As Object, e As
EventArgs) Handles [Link]
[Link] = [Link]
[Link] = False
[Link] = False
[Link] = False
End Sub
Private Sub CheckBox5_CheckedChanged(sender As Object, e As
EventArgs) Handles [Link]
If [Link] Then
[Link] = New Font([Link], [Link]
Or [Link])
Else
[Link] = New Font([Link],
[Link] And Not [Link])
End If
[Link] = False
[Link] = False
[Link] = False
End Sub
Private Sub CheckBox6_CheckedChanged(sender As Object, e As
EventArgs) Handles [Link]
If [Link] Then
[Link] = New Font([Link], [Link]
Or [Link])
Else
[Link] = New Font([Link],
[Link] And Not [Link])
End If
[Link] = False
[Link] = False
[Link] = False
End Sub
Private Sub CheckBox7_CheckedChanged(sender As Object, e As
EventArgs) Handles [Link]
If [Link] Then
[Link] = New Font([Link], [Link]
Or [Link])
Else
[Link] = New Font([Link],
[Link] And Not [Link])
End If
[Link] = False
[Link] = False
[Link] = False
End Sub
Private Sub CheckBox8_CheckedChanged(sender As Object, e As
EventArgs) Handles [Link]
If [Link] Then
[Link] = New Font([Link], [Link]
Or [Link])
Else
[Link] = New Font([Link],
[Link] And Not [Link])
End If
[Link] = False
[Link] = False
[Link] = False
End Sub
End Class
Form1: label1, textbox1, label2, groupbox1, groupbox2, checkbox1, checkbox2,
checkbox3, checkbox4, radiobutton1, radiobutton2, radiobutton3, radiobutton4,
combobox1, button1