刚看教程第一个就不会了
rivate Sub Form_Load()
Dim Tv As New TVEngine '调用tv3d所必需的
Dim Scene As New TVScene '调用tv3d所必需的
Dim Mesh As TVMesh '定义一个网格物体
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

你这个好像就是reity的例子应该不会错的，不行逐句调试看看不在哪

第一行少了字母P，private