Sub regtest()
Dim oControl
    On Error Resume Next
    ' sevCoolBar
    Set oControl = CreateObject("sevcoolbar2.coolbar")
    If Err.Number <> 0 Then
        MsgBox "sevCoolBar ist nicht vorhanden oder nicht richtig registriert"
    Else
        Set oControl = Nothing
    End If
    ' SevCommand3
    Set oControl = CreateObject("sevcommand3.command")
    If Err.Number <> 0 Then
        MsgBox "sevCommand3 ist nicht vorhanden oder nicht richtig registriert"
    Else
        Set oControl = Nothing
    End If
        ' SevEingabe
    Set oControl = CreateObject("sevtextbox.sevtext")
    If Err.Number <> 0 Then
        MsgBox "sevEingabe ist nicht vorhanden oder nicht richtig registriert"
    Else
        Set oControl = Nothing
    End If
End Sub

_________
liabr vom Essa an Ranza als vom Schaffa an Buckel