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>I have a log function which is like this:
> Private Sub AddToLog(ByVal tcString As String) > Log.Text = Log.Text + "Started: " + Date.Now + Chr(13) + Chr(10) > Log.Text = Log.Text + tcString + Chr(13) + Chr(10) > CursorLog() > End Sub >>
> Private Sub AddToLog(ByVal tcString As String, Optional ByVal toObject As Object = "Log") > toObject.Text = toObject.Text + "Started: " + Date.Now + Chr(13) + Chr(10) > toObject.Text = toObject.Text + tcString + Chr(13) + Chr(10) > CursorLog() > End Sub >>