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