TrueVision8

[prog_tom]

Option Explicit
Private TZ As TrueVision8
Private tp As Mesh8
Private ss As Scene8
Private anew As Boolean, FPSVAL As Variant
Private Sub Form_Load()
Set TZ = New TrueVision8
Set tp = New Mesh8
Set ss = New Scene8
Set tp = ss.CreateMeshBuilder
TZ.Init3DWindowedMode Me.hWnd
tp.CreateTeapot
tp.SetPosition 0, 0, 10
TZ.DisplayFPS = True
Form1.WindowState = 2
Form1.Show
anew = True
ou
End Sub
Sub ou()
Do
DoEvents
TZ.Clear
ss.RenderAllMeshes
TZ.RenderToScreen
FPSVAL = TZ.GetFPS
Loop Until anew = False
Set TZ = Nothing
Set ss = Nothing
Set tp = Nothing
End
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
anew = False
Set TZ = Nothing
Set ss = Nothing
Set tp = Nothing
If FPSVAL > 250 Then
MsgBox "YOU HAVE A GREAT 3D CARD! LEND IT TO ME... BUT MY 3DFX VOODOO3 2000 PCI IS 350FPS... SO. NO NEED:)", vbInformation, "FPS"
ElseIf FPSVAL < 100 Then
MsgBox "Your 3D card sucks!!", vbCritical, "SUKS!"
Else
End If
End
End Sub

This is my first time using TrueVision8 Engine. Tell me if you like it. You need to have TrueVision8 5.5 Dll too. Download it at:
http://www.truevision3dsdk.com