Private Sub Command1_Click()
'MyMove 0, 0 '移动到左上角
MyMove 200, 300 'MyMove的单位是像素
End Sub
Sub MyMove(X As Long, Y As Long)
Move X * Screen.TwipsPerPixelX, Y * Screen.TwipsPerPixelY
End Sub

Private Sub Command2_Click() '移动到右下角
Move Screen.Width - Width, Screen.Height - Height '默认以缇为单位(Move 方法)
End Sub

PS：不要加蜘蛛侠好麽

form1_load =error

SetWindowPos Me.hWnd, -1, 0, 0, 0, 0, &h1 or &h2

改为：

SetWindowPos Me.hWnd, -1, 0, 0, 0, 0, 1