Imports System.Drawing.Drawing2D
Public Class Form1
    Dim ttfWertX As Int32 = 0   ' X-Verschiebung
    Dim ttfWertY As Int32 = 0   ' Y-Verschiebung
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        PictureBox1.Location = New Point(5, 5)
        PictureBox1.Size = New Size(310, 310)
        PictureBox1.BackColor = Color.Black
    End Sub
        Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As _
          System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        With e.Graphics
            .TranslateTransform(ttfWertX, ttfWertY)         ' Werte der 
            ' Verschiebung in X und Y Richtung
            e.Graphics.FillRectangle(Brushes.Blue, 140, 140, 30, 30)
        End With
    End Sub
End Class