Brings Rhino into the foreground and activates the window.
BringToTop ()
None
Dim objRhino
On Error Resume Next
Set objRhino = CreateObject("Rhino.Application")
If Err.Number == 0 Then
objRhino.BringToTop
End If