>I think your problem is the default value you need to give to the optional parameter.
>
>Why don't you create an overloaded method?
>
>

>    Private overloads Sub AddToLog(ByVal tcString As String)
>        Log.Text += "Started: " + Date.Now + Chr(13) + Chr(10)
>        Log.Text += tcString + Chr(13) + Chr(10)
>        CursorLog()
>    End Sub
>    Private overloads Sub AddToLog(ByVal tcString As String, ByVal toObject As Object )
>        toObject.Text += "Started: " + Date.Now + Chr(13) + Chr(10)
>        toObject.Text += tcString + Chr(13) + Chr(10)
>        CursorLog()
>    End Sub
>

This seems interesting. How the overloads process works anyway?