Private Sub pSize_MouseDown(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
  w_X = X: w_Y = Y
End Sub
 
Private Sub pSize_MouseMove(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
  Dim lPos As Long
  If Button > 0 Then
   If Me.Width > Range_X Then
    ' Position links
    lPos = pSize.Left + X - w_X
    pSize.Left = lPos
    Me.Width = pSize.Left + pSize.Width
   Else
    Me.Width = 6410
   End If
   '
   If Me.Height > Range_Y Then
    ' Position oben
    lPos = pSize.Top + Y - w_Y
    pSize.Top = lPos
    Me.Height = pSize.Top + pSize.Height
   Else
    Me.Height = 4810
   End If
  End If
End Sub

Nsider