Private Declare Function SetWindowPos& Lib "user32" (ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Private Sub Form_Load()
Me.Show
Call SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3)
‘……其它代码
End Sub
时间: 2024-11-14 13:09:12