'Deutsch
frmNotePad.mnuFClose.Caption:=S&chließen
frmNotePad.mnuFClose.Shortcut:=^S

'English
frmNotePad.mnuFClose.Caption:=C&lose
frmNotePad.mnuFClose.Shortcut:=^X

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim Index As Integer
    Dim c As Control
    Index = LANG.GetIndexKey(KeyCode, Shift)
    If Index >= 0 Then
        Set c = LANG.GetControl(Index)
        'c.Value = True 'das funktioniert so nicht, 
                        'da es keine Value-Eigenschaft gibt!
 
        'Der folgende Funktionsaufruf müsste dynamisch sein!
        Call mnuFClose_Click
 
        KeyCode = 0
    End If
End Sub

Ciao,
Manfred Becker