Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Font = New Font("rage Italic", 10)
Dim b As Font = New Font("rage Italic", 25)
Dim c As Font
c = b
b = a
a = c
Label1.Font = a
Label1.Text = "hoho"
End Sub