how to examine if an object has a method in realtime?

[ultra2]

I use CallByName fuction:

if something??? then
CallByName Me, strMethodName, VbMethod,
end if

but sometimes the "strMethodName" method doesnt exist and this cause runtime error. can I examine that before calling CallByName?

[manavo11]

Private Sub Form_Load()
    MsgBox HasProperty(Form1, "Caption")
    Unload Me
End Sub
 
Public Function HasProperty(objObject As Object, strProperty As String) As Boolean
    Dim varRet As Variant
    On Error Resume Next
    varRet = CallByName(objObject, strProperty, VbGet)
    If Err.Number = 0 Then
        HasProperty = True
    End If
    On Error GoTo 0
End Function