VB6 SHOW 3DMAX (Cult3D ActiveX Player)，CO File format

Cult3D ActiveX Player

Cult3DP1.Visible = True
Cult3DP1.LoadCult3D App.Path & "\sun.co"

download 3d ocx:
http://www.web3d.com.cn/plugin/cult3d.html

how to use Cult3DP1?
Cult3DP1.***
Private Sub Cult3DP1_OnSendMessage(ByVal Message As String)
Me.Caption = "Message=" & Message
End Sub