01.
02.
Public
_Permis as
Integer
= 0
03.
Private
Sub
showFrom(frmName
As
Form,
Optional
NewPermis = 0)
04.
For
Each
f
In
Me
.MdiChildren
05.
Then
f.Close()
06.
Next
07.
_Permis = NewPermis
08.
frmName.MdiParent =
Me
09.
frmName.WindowState = FormWindowState.Maximized
10.
frmName.Show()
11.
End
Sub
12.
13.
14.
Private
Sub
FrmMatImport_Load(sender
As
Object
, e
As
EventArgs)
Handles
MyBase
.Load
15.
Permission(_Permis)
16.
End
Sub
17.
18.
19.
Public
Function
Permission(permis
As
Integer
)
20.
Select
Case
permis
21.
Case
0
22.
FrmTest.GroupInput.Visible =
True
23.
Return
True
24.
Case
1
25.
FrmTest.GroupInput.Visible =
False
26.
Return
True
27.
End
Select
28.
29.
Return
False
30.
End
Function