Public Class Form1
    Dim bmp As New Bitmap(32, 32)
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        e.Graphics.DrawImage(bmp, 10, 10)
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        bmp = Me.Icon.ToBitmap
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        bmp.RotateFlip(RotateFlipType.RotateNoneFlipX)  ' +15 weitere
        Me.Invalidate()
    End Sub
End Class