neu

SDL/frmMain.vb

@@ -769,6 +769,13 @@ Public Class frmMain
     Private Sub SchnittstellenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchnittstellenToolStripMenuItem.Click
 
     End Sub
+
+    Private Sub NeuesPasswortToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuesPasswortToolStripMenuItem.Click
+        Dim f As New frmChangePWD(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER)
+        If f.ShowDialog() = Windows.Forms.DialogResult.OK Then
+            MsgBox("Passwort geändert!", vbInformation)
+        End If
+    End Sub
 End Class
 
 Public Class MyRenderer