Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        e.Graphics.DrawEllipse(Pens.Red, 100, 100, 70, 70)
        e.Graphics.FillEllipse(Brushes.Black, 100, 100, 70, 70)
End Sub

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        e.Graphics.DrawEllipse(Pens.Red, X, Y, 70, 70)
        e.Graphics.FillEllipse(Brushes.Black, X, Y, 70, 70)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
 
X = X + 10
Y = Y + 10
 
End Sub

Private Sub Command1_Click()
Shape1.Top = Shape1.Top + 10
End Sub

Danke, an ALLE !!