private Sub WebControl_DocumentCompleted (
   ByVal sender As Variant, 
   ByVal arg As String ) As Boolean