بدي حل للمشكله هادي بسيطه تقربيا

IF FORM1.VISABLE = TRUE THEN FORM1.HIDE

command1 ------

unload me

form2.show

=========

command2 ------

unload me

form1.show

تفضل أخي

Private Sub Command1_Click()

If Form1.Visible = True Then

Unload Form1

Else

Form1.Show

End If

End Sub

---------------------------------------------------------------------------------------------

Private Sub Command2_Click()

If Form2.Visible = True Then

Unload Form2

Else

Form2.Show

End If

End Sub

مشكورررررررين علي ردودكم وتواصلكم

طيب بدي اعرف هلقيت ال MDIForm ممكن نقيم زر التكبير فيه يعني انا اطلعت في الخواص ما لقيت في MaxButton عشان اخلي

زر التكبير يقف

ممكن يكون في حل تاني

تريد تعطيل زر التكبير

Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
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()
 Const WS_MAXIMIZEBOX = &H10000
 Const GWL_STYLE = (-16)
 Const SWP_FRAMECHANGED = &H20
 Const SWP_NOMOVE = &H2
 Const SWP_NOSIZE = &H1

 Dim nStyle As Long
 nStyle = GetWindowLong(Me.hWnd, GWL_STYLE)
 Call SetWindowLong(Me.hWnd, GWL_STYLE, nStyle And Not WS_MAXIMIZEBOX)
 SetWindowPos Me.hWnd, 0, 0, 0, 0, 0, SWP_FRAMECHANGED Or SWP_NOMOVE Or SWP_NOSIZE
End Sub

مشكوررررررررررررررررررر كتيررررررررررررر علي تواصلك

وهيو زبط وكلو تمام

يعطيك الف عافيه