Option Explicit
 
Dim circleX As Integer
Dim circleY As Integer
 
Private Const C_RADIUS = 200
Private Const C_COLOR = vbBlue
 
Private MoveCircle As Boolean
Private mem_X As Integer
Private mem_y As Integer
 
 
Private Sub Form_Load()
    circleX = Picture1.Width / 2
    circleY = Picture1.Height / 2
 
    Picture1.Circle (circleX, circleY), C_RADIUS, C_COLOR
End Sub
 
 
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
    If Button = 1 Then
        If X > circleX - C_RADIUS And X < circleX + C_RADIUS Then
            If Y > circleY - C_RADIUS And Y < circleY + C_RADIUS Then
                MoveCircle = True
            Else
                MoveCircle = False
            End If
        Else
            MoveCircle = False
        End If
    End If
End Sub
 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
    If Button = 1 And MoveCircle = True Then
        Picture1.Circle (circleX, circleY), C_RADIUS, Picture1.BackColor
        circleX = X
        circleY = Y
        Picture1.Circle (circleX, circleY), C_RADIUS, C_COLOR
    ElseIf Button = 0 Then
        If X > circleX - C_RADIUS And X < circleX + C_RADIUS Then
            If Y > circleY - C_RADIUS And Y < circleY + C_RADIUS Then
                Picture1.MousePointer = 5
            Else
                Picture1.MousePointer = 0
            End If
        Else
            Picture1.MousePointer = 0
        End If
    End If
End Sub

______________________________________________... aber gut, dass wir dar?ber gesprochen haben!