Public Class Form1
 
    Private bolMouseDown As Boolean
 
    Private Sub UserControl11_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles UserControl11.MouseDown
        bolMouseDown = True
    End Sub
 
    Private Sub UserControl11_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles UserControl11.MouseMove
        If bolMouseDown = True Then
            UserControl11.Location = New Point(Control.MousePosition.X - _
              Me.Left, Control.MousePosition.Y - Me.Top - 26)
        End If
    End Sub
 
    Private Sub UserControl11_MouseUp(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles UserControl11.MouseUp
        bolMouseDown = False
    End Sub
 
End Class
 
-------------------------------------------------------------------------------_
  -----------------------------
 
Public Class UserControl1
 
    Private Sub UserControl1_Load(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Load
        Me.SetStyle(ControlStyles.OptimizedDoubleBuffer Or _
        ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint, True)
    End Sub
 
    Private Sub UserControl1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        e.Graphics.Clear(Color.Blue)
    End Sub
 
End Class