Private Sub picMap_MouseDown(Button As Integer, Shift As Integer, X As Single, _
  Y As Single)
If Button = 1 Then
shpRect.Height = "15"
shpRect.Width = "15"
shpRect.Visible = True
shpRect.Move X, Y
MouseDownLeft = X
MouseDownTop = Y
End If
End Sub
 
Private Sub picMap_MouseMove(Button As Integer, Shift As Integer, X As Single, _
  Y As Single)
On Error Resume Next
Dim ShapeLeft As Integer
ShapeLeft = shpRect.Left
 
'shpRect.Height = "15"
'shpRect.Width = "15"
 
If Button = 1 Then
    If X > shpRect.Left Then
shpRect.Width = X - shpRect.Left
shpRect.Height = Y - shpRect.Top
    ElseIf X < shpRect.Left Then
'shpRect.Move X
'shpRect.Width = X
'shpRect.Height = Y - shpRect.Top
'HIER komm ich nicht so wirklich weiter...
    End If
 
End If
End Sub
 
Private Sub picMap_MouseUp(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
If Button = 1 Then
shpRect.Visible = False
End If
End Sub