...
Private Sub Panel_MouseMove(ByVal sender As System.Object, ByVal e As _
  System.Windows.Forms.MouseEventArgs)
 
        If clicked = True Then
 
            CType(sender, Panel).Left = Windows.Forms.Cursor.Position.X - disX _
              <=115
            CType(sender, Panel).Top = Windows.Forms.Cursor.Position.Y - disY _
            <= 115
        Else
 
        End If
    End Sub
...