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