Public Class Form1
  Inherits System.Windows.Forms.Form

Vom Windows Form Designer generierter Code

  Dim i As Int32

  Private Sub Button1_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button1.Click
    Dim g As Graphics
    i += 1

    Dim sText = "VB.NET" & vbNewLine & "ist einfach" & _
                           vbNewLine & "SUPER"
    Dim oFont = New Font("Comic Sans Ms", 50)

    Dim oBrush1 = New TextureBrush( _
            New Bitmap(ImageList1.Images.Item(1)))
    Dim oBrush2 = New TextureBrush( _
            New Bitmap(ImageList1.Images.Item(0)))

    g = Me.CreateGraphics
    g.RotateTransform(-15 + i)

    If i Mod 2 = 0 Then
      g.DrawString(sText, oFont, oBrush2, 0, 60)
    Else
      g.DrawString(sText, oFont, oBrush1, 0, 60)
    End If

    g.ResetTransform()
  End Sub

  Private Sub Button2_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button2.Click
    Me.Close()
  End Sub

  Private Sub Button3_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button3.Click
    Me.Refresh()
    If i > 80 Then i = 0
  End Sub
End Class