This commit is contained in:
SchreiberM
2017-01-26 17:55:38 +01:00
parent ca2b40b895
commit f3f55f19c8
8 changed files with 120 additions and 48 deletions

View File

@@ -201,6 +201,12 @@ Module ModuleHelperMethods
frm.MdiParent = MAIN_FORM
frm.Show()
End Sub
Public Sub OpenStatisticsADDI()
Dim frm As New frmStatistiscsADDI
frm = frmStatistiscsADDI
frm.MdiParent = MAIN_FORM
frm.Show()
End Sub
Public Sub Close_Maximized_Forms()
For i = System.Windows.Forms.Application.OpenForms.Count - 1 To 1 Step -1
Dim form As Form = System.Windows.Forms.Application.OpenForms(i)