Public Sub TestRotation()
 
    'Bitmap erstellen
    Dim bmp As New Bitmap(200, 500, Imaging.PixelFormat.Format24bppRgb)
 
    'Die Farbe des kritischen Punktes definieren
    Dim ckrit As Color = Color.FromArgb(125, 125, 125)
 
    'Den kritischen Punt farbig markieren
    bmp.SetPixel(60, 170, ckrit)
 
    'Gewünschte Dreh-/Kipp-Bewegubng ausführen
    bmp.RotateFlip(RotateFlipType.Rotate90FlipNone)
 
 
    'Suche nach der neuen Position
    For i As Integer = 0 To bmp.Width - 1
       For k As Integer = 0 To bmp.Height - 1
          If bmp.GetPixel(i, k) = ckrit Then Stop
       Next k
    Next i
End Sub