Dim x As Single = 0 
    Dim y As Single = 0 
    Dim r As Double = 0 
    Dim rhelp As Integer = 0 
    Dim x1, y1 As Single 
    Dim cont As System.Drawing.Drawing2D.GraphicsContainer 
 
(Globale Variablen) 
 
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click 
        rhelp -= 10 
        r = rhelp * Math.PI / 180 
        PictureBox1.Refresh() 
        'MessageBox.Show(x.ToString + " " + y.ToString) 
    End Sub 
 
    Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint 
 
 
        Dim order As System.Drawing.Drawing2D.MatrixOrder 
 
 
        e.Graphics.FillEllipse(New System.Drawing.SolidBrush(Color.Blue), x, y, _
          10, 10) 
        cont = e.Graphics.BeginContainer() 
        'e.Graphics.RotateTransform(r * 180 / Math.PI) 
        'e.Graphics.TranslateTransform(CSng(PictureBox1.Width / 2), CSng( 
        ' PictureBox1.Height / 2)) 
        x1 = x * Math.Cos(r) + y * Math.Sin(r) 
 
        y1 = -x * Math.Sin(r) + y * Math.Cos(r) 
 
 
 
        e.Graphics.RotateTransform(r * 180 / Math.PI) 
        e.Graphics.FillRectangle(New System.Drawing.SolidBrush(Color.Red), x1, _
          y1 + 100, 50, 20) 
 
        e.Graphics.FillEllipse(New System.Drawing.SolidBrush(Color.Red), x1, _
          y1, 10, 10) 
 
        e.Graphics.EndContainer(cont) 
    End Sub 
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles MyBase.Load 
        x = CSng(PictureBox1.Width / 2) 
        y = CSng(PictureBox1.Height / 2) 
    End Sub 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click 
        rhelp += 10 
        r = rhelp * Math.PI / 180 
        PictureBox1.Refresh() 
    End Sub