Option Explicit
dim tv
dim scene
dim inp
dim ball
dim gameover
set tv=createobject("tv3d65.TVEngine")
set Scene=createobject("tv3d65.TVScene")
set inp=createobject("tv3d65.TVInputEngine")
Sub main()
GameOver = False
tv.Init3DFullscreen 800, 600, 16
tv.SetVSync false
'tv.DisplayFPS True
inp.Initialize True, True
set ball=scene.createmeshbuilder("b")
ball.CreateTeapot
ball.SetPosition 0, 0, 5
Do
tv.Clear
ball.rotatey 0.01
ball.render
tv.RenderToScreen
If inp.IsKeyPressed(TV_KEY_ESCAPE) Then GameOver = True
If inp.IsMouseButtonPressed(1) Then GameOver = True
DoEvents
Loop Until GameOver
End Sub

不用VB6，是直接用记事本写的，存为VBS，XP上可以启动此擎，有个人在WIN8上测试说不能创建ACTIVE部。

最后一句忘了写：
call main()
了

我已经找到原因了。