大神求助

Option Explicit
Dim Tv As New TVEngine '调用tv3d所必需的
Dim Scene As New TVScene '调用tv3d所必需的
Dim Mesh As TVMesh '定义一个网格物体
Private Sub Form_Load()
Me.Caption = "TV3D 茶壶"
Me.Show '显示当前窗口，每次都加上错不了
Tv.Init3DWindowed Form1.hWnd '用窗口模式启动tv3d
Set Mesh = Scene.CreateMeshBuilder '网格物体初始化，必加
Mesh.CreateTeapot '建立一个茶壶
Mesh.SetPosition 0, 0, 3 '设定物体的位置坐标
Do '主循环
Tv.Clear '清屏
Mesh.RotateY 0.001 '沿y轴以0.001每帧的速度转动
Mesh.Render '渲染茶壶
Tv.RenderToScreen '把所得最终结果渲染到屏幕
DoEvents '这句是把线程空出来，使其他的的程序能运行，必加
Loop
End Sub
用这代码怎么会？？？