Private Sub txtCodeName_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
Private Sub txtYear_GotFocus()
Me.txtYear.SelStart = 0
Me.txtYear.SelLength = Len(Me.txtYear.Text)
End Sub
Private Sub cmbModel_Click()
Select Case Me.cmbModel.ListIndex + 1
Case 1
'3-rotor Wehrmacht/Luftwaffe
Me.lblDescription.Caption = "This is the basic 3 rotor Enigma machine, used by Wehrmacht and Luftwaffe. Issued with a set of five rotors, from I to V, and two reflectors, B and C."
Case 2
'3-rotor M3 Kriegsmarine
Me.lblDescription.Caption = "This is the 3 rotor Kriegsmarine M3 Enigma machine, also called Funkschlussel M. Issued with a set of eight rotors, from I to VIII, and two reflectors, B and C."
Case 3
'4-rotor M4 Kriegsmarine
Me.lblDescription.Caption = "This is the 4 rotor Kriegsmarine M4 Enigma machine. Issued with a set of eight rotors, from I to VIII, two special thin rotors called Beta and Gamma (which don't advance), and two thin reflectors, B and C."
Case 4
'4-rotor M4 Kriegsmarine (M3 and Wehrmacht/Luftwaffe Compatible)
Me.lblDescription.Caption = "This is the 4 rotor Kriegsmarine M4 Enigma machine in compatible configuration for communication with M3 or Wehrmacht/Luftwaffe models.. Uses only the first five rotors, from I to V, reflector B together with Beta rotor or reflector C together with Gamma rotor. Beta and Gamma must have ringsetting A and remain in startposition A, to be compatible."
Case 5
'4-rotor M4 Kriegsmarine (M3 Compatible)
Me.lblDescription.Caption = "This is the 4 rotor Kriegsmarine M4 Enigma machine in compatible configuration for communication with M3 models. Uses all issued rotors, from I to VIII, reflector B together with Beta rotor or reflector C together with Gamma rotor. Beta and Gamma must have ringsetting A and remain in startposition A, to be compatible with M3 model."