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 ) As Long
Private Sub Form_load()
Dim retValue As Long
retValue = SetWindowPos(hwnd, -1, 0, 0, 0, 0, 3)
End Sub