'Hallo Mirko...
'hier ein Beispiel das ein Frame-Control zur Laufzeit mit der linken
'Maustaste verschiebt.
'NG.:11.04.03
 
Private Declare Function SendMessage Lib "user32" _
                            Alias "SendMessageA" _
                            (ByVal hwnd As Long, _
                            ByVal wMsg As Long, _
                            ByVal wParam As Long, _
                            lParam As Any) _
                            As Long
 
Private Declare Function ReleaseCapture Lib "user32" () As Long
 
Const SC_MOVE = &HF012
Const WM_SYSCOMMAND = &H112
 
Private Sub Command1_Click()
    End
End Sub
 
Private Sub Frame1_MouseDown(Button As Integer, Shift As Integer, X As Single, _
  Y As Single)
    Dim lRet As Long
        If Button = 1 Then
            ReleaseCapture
            lRet = SendMessage(Frame1.hwnd, WM_SYSCOMMAND, SC_MOVE, 0)
        End If
End Sub
'Frank