Shows or hides the Rhino application window.
Visible
Number. 1 = show, 0 = hide.
Dim objRhino
On Error Resume Next
Set objRhino = CreateObject("Rhino.Application")
If Err.Number == 0 Then
objRhino.Visible = 1
End If