Sub btnUserPin_Action
If PinForm.IsInitialized = False Then "Set a Breakpoint after other breakpoint is not hit. This is Hit"
PinForm.Initialize(UserForm, modPinConvert.ConvertPinBack(txtPin.Text))
Else
PinForm.SetPin(modPinConvert.ConvertPinBack(txtPin.Text)) "this is not Hit has to if I go with F8"
End If
PinForm.ShowPinForm
PinTimer.Enabled = True
End Sub
Private Sub PinTimer_Tick
If PinForm.PinForm.RootPane.Visible = False Then
PinTimer.Enabled = False
txtPin.Text = modPinConvert.ConvertPin("", modPinConvert.NewPin)
' modPinConvert.ConvertPin("", txtPin.Text) "Happents after I remark this Row"
If modPinConvert.NewPin.Length = 0 Then
btnUserPin.Text = "Pin Not Used"
Else
btnUserPin.Text = "Pin Used"
End If
End If
End Sub