01.
Private
Sub
ShowForm(
ByVal
f
As
Form,
Optional
ByVal
IsMdiChildren
As
Boolean
=
True
,
Optional
ByVal
IsModual
As
Boolean
=
False
)
02.
If
IsMdiChildren
Then
03.
If
Not
f.IsMdiContainer
Then
04.
f.MdiParent =
Me
05.
End
If
06.
Call
ShowFormX(f, IsModual)
07.
Else
08.
Call
ShowFormX(f, IsModual)
09.
End
If
10.
End
Sub
11.
12.
Private
Sub
ShowFormX(
ByRef
frm
As
Form,
ByVal
isModual
As
Boolean
)
13.
If
isModual
Then
14.
Using x
As
Form = frm
15.
x.ShowDialog()
16.
End
Using
17.
Else
18.
frm.Show()
19.
End
If
20.
End
Sub