Label Help [RESOLVED]

[Ricky1]

Private Sub label13_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim Ret&
       ReleaseCapture
       Ret& = SendMessage(Me.hWnd, &HA1, 2, 0&)
       
End Sub

one of my mates sent me this just before he signed of suppose to make it so i click the label and move the program around the screen because i removed the default ones.
But it doesn't like ReleaseCapture.
Do i have to turn something on within VB ?