Visual Basic - Importante: sendmessage

tengo el siguiente problema con la api sendmessage:
tengo hecho para que cuando uno mantenga sobre un control lo puedas mover, funciona en todos los controles, excepto en los frames, por favor si alguien sabe como solucionarlo ayudeme :)
este es el codigo (es cortito):

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2

Private Sub Frame1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call ReleaseCapture
Call SendMessage(Frame1.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
End Sub

Fijate con capturar los mensajes (con GetWindowLong y CallWindowProc) para ver cual es el que tenés que mandar con SendMessage.