一段有趣的代码，欢迎各位过来讨论

Question

我想在程序运行时候拖动MonthView，就像设计窗体的时候刚找到一个例子
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
Const WM_1 = &H112
Const SC_MOVE = &HF012Private Sub Command1_Click()
call SendMessage(Command1.hwnd, WM_1, SC_MOVE, 0)
End Sub只是偶尔可以，我也不知道为什么了
不过是肯定可以得按下button后，移动鼠标看看