Private Sub Form_Activate()
 
Dim XPos%, YPos%, XRi%, YRi%, Rad%
 
Rad = 35
XPos = Rad
YPos = Rad
XRi = 1: YRi = 1
With Me
  .ScaleMode = vbPixels
  .AutoRedraw = True
  .FillStyle = 0
  .FillColor = vbBlue
  Do
    .Cls
    Me.Circle (XPos, YPos), Rad
    XPos = XPos + XRi
    YPos = YPos + YRi
    If XPos <= Rad Or XPos >= .ScaleWidth - Rad Then XRi = -XRi
    If YPos <= Rad Or YPos >= .ScaleHeight - Rad Then YRi = -YRi
    DoEvents
  Loop
End With
 
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
  End
End Sub

Gruss,

Zardoz