Private Sub Timer1_Timer()
shape.top = shape.top + 100
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, 100, 100, 70, 70)
        e.Graphics.FillEllipse(Brushes.Black, 100, 100, 70, 70)
End Sub