Using Visual FoxPro (VFP) to control/program Rhino3D V2

VisualFoxPro is one of the best development tools for large databases

Define CLASS RhinoVFPClass AS SESSION OLEPUBLIC
  Function VFP_AXinit (rhValue)
  Clear
  _Screen.hide
     Do form beginfrm
    Read EVENTS
  Endfunc
Enddefine

Rhino start up script RhinoVFP.rvb

Dim obj
Sub connectActiveX()
Set obj = CreateObject("rhinovfp.RhinoVFPClass")
  If IsObject(obj) AndIsObject(Rhino) Then
  'send Rhinoobject to the VFP COM InitClass
   obj.VFP_AXinit(Rhino)
  End If
Set obj = Nothing
End Sub
connectActiveX