Optional "$?%&*)("/$!!!" :-(

[*Vince]

grrrr !


How do I test if an optional parameter as been passed to a function if the parameter is an Object ?

I know I can use IsEmpty for Variables, but objects ???

Thanks

[Aaron Young]

Instead of defining the Optional Parameter as Object, use Variant then you can use the IsMissing command, i.e.

Sub SomeSub(ByVal sString As String, Optional oObject As Variant)
    If IsMissing(oObject) Then MsgBox "No Object Passed"
End Sub

Private Sub Command1_Click()
    Call SomeSub("Anything")
End Sub

[*Vince]

Ah that's what I wanted ISMISSING !!!

The only thing is that I pass a control ( progrss bar ) to my function (it's a class thing, don't bother with that).

So I'll try IsMissing with controls to see if it works...
Thanks