Option Explicit
Private Sub Form_Load()
'Form hat 3 Buttons
'Das Button Array "Command" mit Command(1) und Command(0)
'Und ein Button cmd welcher KEINEN index hat
    If HasIndex(cmd) Then
        MsgBox ("cmd hat einen Index")
    End If
    If HasIndex(Command(1)) Then
        MsgBox ("Command(1) hat einen index")
    End If
End Sub
 
 
Private Function HasIndex(ByVal Ctrl As Object) As Boolean
    On Error GoTo ErrHandler
    If Ctrl.Index >= 0 Then
        HasIndex = True
    End If
    Exit Function
ErrHandler:
    Err.Clear
    HasIndex = False
End Function