[Resolvido]Restaurar form através de botão em outro form

Bem amigos, preciso fazer isto que está no tópico.. tenho um código, mas não o estou conseguindo aplicar..

Se puderem me ajudar fico grato


'*************************** Code Start ************************
'This code was originally written by Terry Kreft.
'It is not to be altered or distributed,
'except as part of an application.
'You are free to use it in any application,
'provided the copyright notice is left unchanged.
'
'Code courtesy of
'Terry Kreft
'
Type Rect
x1 As Long
y1 As Long
x2 As Long
y2 As Long
End Type
Declare Function IsZoomed Lib "user32" (ByVal hWnd As Long) As Long
Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal _
nCmdShow As Long) As Long
Declare Function MoveWindow Lib "user32" (ByVal hWnd As Long, ByVal _
X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight _
As Long, ByVal bRepaint As Long) As Long
Declare Function GetParent Lib "user32" (ByVal hWnd As Long) As Long
'Use following instead of GetWindowRect
Declare Function GetClientRect Lib "user32" (ByVal hWnd As Long, lpRect _
As Rect) As Long

Public Const SW_MAXIMIZE = 3
Public Const SW_SHOWNORMAL = 1

Sub MaximizeRestoredForm(F As Form)
Dim MDIRect As Rect
' If the form is maximized, restore it.
If IsZoomed(F.hWnd) <> 0 Then
ShowWindow F.hWnd, SW_SHOWNORMAL
End If
' Get the screen coordinates and window size of the
' MDIClient area.
'This is the line which is different
GetClientRect GetParent(F.hWnd), MDIRect
' Move the form to the upper left corner of the MDIClient
' window (0,0) and size it to the same size as the
' MDIClient window.
MoveWindow F.hWnd, 0, 0, MDIRect.x2 - MDIRect.x1, MDIRect.y2 - MDIRect.y1, True
End Sub
'*************************** Code End ************************

Era pra executar bastando chamar a função.

MaximizeRestoredForm(NomedoSeuForm)

Se você colou em um módulo, talvez tenha que declará-la como Publica

nesta linha:

Sub MaximizeRestoredForm(F As Form)

para

Public Sub MaximizeRestoredForm(F As Form)

Sds,

Entendi amigão.. irei testar

Grato

Fiz isto.. mas deu variável não definida

Call MaximizeRestoredForm(FrmMain)

Amigo isto é um módulo e não uma função

Tente tirar o Call

Sds,

Deve ter resolvido. Alguma dúvida reabra, por favor

Grato vieira ... esta função acima não deu certo... fiz dois form's pois não estava conseguindo restaurar o minimizado..