si tu ve mon code oké mais c pas ce ke tu crois 
Private TV8 As TVEngine
Dim Scene(900) As TVScene
Dim deco As TVScene
 
Dim prii(900) As Integer
Private bon As TVMesh
Private InputEngine As TVInputEngine
Private sngPositionX As Single
Private sngPositionY As Single
Private sngPositionZ As Single
Dim Lower(900) As New TVActor
Dim Upper(900) As New TVActor
Dim Head(900) As New TVActor
Dim nick(900) As String
Private Room As TVMesh
 
Private Atmos As TVAtmosphere
 
Private sngWalk As Single
Private sngStrafe As Single
Private TankPosition As D3DVECTOR
Private Camera As TVCamera
Public TextMesh As TVMesh
Private sngBrake As Single
Public go As Integer
 
Public textc As TVScreen2DText
 
Public Scr As TVScreen2DImmediate
Public TexFactory As TVTextureFactory
 
Private DoLoop As Boolean
 
 
 
Private Sub Form_Load()
socket.teping.Enabled = True
 
lo = 0
lo2 = 0
num2 = 5
num = 13
For a = 0 To 11
List1.AddItem ""
Next
Randomize Timer
DoLoop = True
sngWalk = 0
sngStrafe = 0
sngPositionX = 0
sngPositionY = 20
sngPositionZ = 0
sngAngleX = 0
sngAngleY = 0
TankPosition.x = 50
TankPosition.y = 20
TankPosition.z = 50
 
Set TV8 = New TVEngine
TV8.Init3DFullscreen 1024, 768, 32
'TV8.Init3DWindowedMode Form3.hWnd
Set Scene(0) = New TVScene
Set deco = New TVScene
 
Set InputEngine = New TVInputEngine
Set Camera = New TVCamera
Set Scr = New TVScreen2DImmediate
Set TexFactory = New TVTextureFactory
TexFactory.LoadTexture "D:\TrueVision 3D SDK\VB\v3dworld\img\chat.jpg", "chat"
Set textc = New TVScreen2DText
Scene(0).SelectFont "Courier New"
Set Room = New TVMesh
Set Room = deco.CreateMeshBuilder
socket.Text9 = TV8.TimeElapsed
 
deco.LoadTexture "D:\TrueVision 3D SDK\VB\v3dworld\textures\game\stone_wall.bmp", , , "RoomTexture"
socket.Text8 = "1.25"
Room.AddFloor GetTex("RoomTexture" ), -500, -500, 500, 500
socket.Text8 = "1.30"
 
voila é text8 de la form socket kand mon prog plante &é a 1.25 donc ca plante sur la fonction Room.AddFloor GetTex("RoomTexture" ), -500, -500, 500, 500
 
ca t'avance vachement d'avoir mon coee n'es pas 
 
 
 ---------------
			
Virtual 3D WorlD