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_syscommand = &h112
const sc_move = &hf012
'---- 在 窗 体 中 添 加 一 命 令 按 钮command1, 双 击 写 代 码 如 下：
private sub command1_click()
dim ren as integer
ren = sendmessage(command1.hwnd, wm_syscommand, sc_move, 0)
end sub
'---- 在 窗 体 中 添 加 命 令 按 钮command2， 双 击 写 如 下 代 码：
private sub command2_click()
unload me
end sub
