#If Win16 Then
Declare Sub SetWindowPos Lib "User" (ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer)
#Else
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)
#End If
然后:
在FORM LOAD 加
Dim rtn
rtn = SetWindowPos(frmTool.hwnd, -1, 0, 0, 0, 0, 3)
就可以了
Public Const wFlags = &H2 Or &H1 Or &H40 Or &H10
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) As Long
Private Sub Form_Load()
Dim ss As Long
ss = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, wFlags)
end sub