neu

SDL/frmMain.vb

@@ -900,6 +900,17 @@ Public Class frmMain
         End If
         secondmonitorSelected = Not secondmonitorSelected
     End Sub
+
+    Private Sub USTVAnträgeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles USTVAnträgeToolStripMenuItem.Click
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("MDM_Hauptmenü", Me) = 0 Then
+            clrPnlMain()
+            Dim usrCntl As New usrCntlUSTV
+            usrCntl.Dock = System.Windows.Forms.DockStyle.Fill
+            pnlMain.Controls.Add(usrCntl)
+        Else
+            setInfo("err", "Daten sind nicht freigegeben!", 3)
+        End If
+    End Sub
 End Class
 
 Public Class MyRenderer