Public Sub setpos()
        mat = New TV_3DVECTOR
        Dim act As Actor
        act = pActor
        mat = act.GlobalPosition
        boxmesh = New TVMesh
        boxmesh = _scene.CreateMeshBuilder()
        boxmesh.LoadXFile(Application.StartupPath + "\scene\box4.x")
        boxmesh.Render()
        boxmesh.SetPosition(mat.x, mat.y, mat.z)
    End Sub