Make a label control the window

[pnish]

Here's another way to do it without using the API

Option Explicit
 
Private MbMov As Boolean
Private PrevX As Long
Private PrevY As Long
 
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    
    MbMov = True
    PrevX = X
    PrevY = Y
 
End Sub
 
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
    If MbMov Then
        Me.Move (Me.Left + X - PrevX), (Me.Top + Y - PrevY)
    End If
 
End Sub
 
Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    
    MbMov = False
 
End Sub