如何在窗口最大化时移动窗口?

可以自己用picturebox做一个标题栏，起名叫PicTitle:
'定义API函数
Public Declare Function ReleaseCapture Lib "user32" () As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const HTCAPTION = 2
Public Const WM_NCLBUTTONDOWN = &HA1
'在PicTitle的MouseDown中写下事件
Private Sub PicTitle_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub

你放一个Picture控件在窗口上试一下就知道了