neu

SDL/cProgramFunctions.vb

@@ -837,6 +837,12 @@ Public Class cProgramFunctions
     End Sub
 
 
+    Public Sub initPIN(pintxt As VERAG_PROG_ALLGEMEIN.MyTextBox)
+        '  If pintxt.Text <> "" Then pintxt.Enabled = False : pintxt.ForeColor = Color.Black
+        If pintxt.Text <> "" Then pintxt.ReadOnly = True : pintxt.BackColor = Color.WhiteSmoke
+        pintxt.initPINSHowPic()
+    End Sub
+
     Public Sub addPicToGueltigBis(tb As TextBox)
         Dim pb As New VERAG_PROG_ALLGEMEIN.MyLinkPicBoxVALUE
         tb.Parent.Controls.Add(pb)