se me ocurre mostrarte el como hacerlo sin tanta bronca e inclusive con tipos aca te van (el Typo de datos Polygon usa matrix je) este es el codigo que uso yo para leer archivos de tipo Mesh (como los .x que genera Studio 3D)

agrega 3 textbox con opcion multilinea=true ejecutalo y ve las acciones

1.- se crean los datos aleatoriamente
2.- se visualisan los datos (los generados aleatoriamente)
3.- se graban los datos en un archivo 'X'.
4.- se descarga de memoria los datos.
5.- se visualisan los datos (oviamente no hay ninguno)
5.- se vuelven a cargar los datos
6.- se visualisan los datos (los que se cargaron en el archivo 'X')

Private Type VECTOR
    Xx As Single
    Yy As Single
    Zz As Single
End Type
 
Private Type VERTEX
    Nor As VECTOR
    Pos As VECTOR
End Type
 
Private Type POLYGON
    Verts(2) As VERTEX
End Type
 
Private polyData() As POLYGON
 
 
 
Private Sub Form_Load()
    randomize
    ReDim polyData(10)
    Dim FILE As Integer: FILE = FreeFile
 
    For i = 0 To 10 Step 1
        For a = 0 To 2 Step 1
            polyData(i).Verts(a).Nor.Xx = a * 1 + b + Int(Rnd(1) * 100)
            polyData(i).Verts(a).Nor.Yy = a * 1 + b + Int(Rnd(1) * 100)
            polyData(i).Verts(a).Nor.Zz = a * 1 + b + Int(Rnd(1) * 100)
            polyData(i).Verts(a).Pos.Xx = a * 1 + b + Int(Rnd(1) * 100)
            polyData(i).Verts(a).Pos.Yy = a * 1 + b + Int(Rnd(1) * 100)
            polyData(i).Verts(a).Pos.Zz = a * 1 + b + Int(Rnd(1) * 100)
        Next a
    Next i
 
    visualisar Text1
    Open "d:\aaa.txt" For Binary As FILE
        Put #FILE, , polyData()
    Close #FILE
    'vasiamos todos los datos
    For i = 0 To 10 Step 1
        For a = 0 To 2 Step 1
            polyData(i).Verts(a).Nor.Xx = 0
            polyData(i).Verts(a).Nor.Yy = 0
            polyData(i).Verts(a).Nor.Zz = 0
            polyData(i).Verts(a).Pos.Xx = 0
            polyData(i).Verts(a).Pos.Yy = 0
            polyData(i).Verts(a).Pos.Zz = 0
        Next a
    Next i
    'Fin
    visualisar Text2
    Open "d:\aaa.txt" For Binary As FILE
        Get #FILE, , polyData
    Close FILE
    visualisar Text3
End Sub
Sub visualisar(textbox As textbox)
    For i = 0 To 10 Step 1
        For a = 0 To 2 Step 1
            textbox = textbox & vbNewLine & polyData(i).Verts(a).Nor.Xx
            textbox = textbox & vbNewLine & polyData(i).Verts(a).Nor.Yy
            textbox = textbox & vbNewLine & polyData(i).Verts(a).Nor.Zz
            textbox = textbox & vbNewLine & polyData(i).Verts(a).Pos.Xx
            textbox = textbox & vbNewLine & polyData(i).Verts(a).Pos.Yy
            textbox = textbox & vbNewLine & polyData(i).Verts(a).Pos.Zz
        Next a
    Next i
End Sub
 

Al ejecutarlo se crea el archivo 'X' y al abrirlo veras algo similar a esto xP:

ˆB  A  B  B  pB  B  ŽB  �A  À@  @B  ÈA  øA  ŠB  ¬B  �B  <B  ´B  XB  €@  hB  B  šB  PB  „B  –B  ÄB  0A  ŒB  tB  –B  ÀB  ÆB  ‚B  B  ðA  xB   @  B  HB  ÐA  $B  dB  4B  ¸A  8B  ÂB  ÈB  tB  B  B  ÂB  ºB  ¨A  œB  €?  œB  tB  €B   A  €?  ¤B  ŠB   B   B  ”B   B  `A  èA  PB  ŒB  ”B   B  pA  šB  tB  ,B  dB  ðA  ²B  °A  ŒB  žB  `A  ŠB  ÆB  ˜A  TB  `A  A  ¢B  @A  PA  ¤B  DB  LB  ¦B  (B  ÄB  `B   B  ¬B  TB  \B  ªB  ŒB  ªB  4B  ÈB  ¼B  `A  PB  ¤B  ðA  ŠB  ÀA  ¸B  xB  àA  ˜A  ¸A  \B  ¸A  PB  PA  \B  4B  8B  |B   @  ²B  ÈA  ÆB  €?  ¨A   A  B  ,B  \B  `B  ¸B  @B  œB  A  ÂB  hB  ¢B  ºB  €B      B  ˆA  pB   B  ˆB  €?  ÄB  ®B  ¤B  $B  ”B   A  ¼B  ªB   A  ¬B      \B  8B  šB  ŒB  tB  °A  À@  4B  ŒB  pA  ÂB  ÀB  °B  ¸B  À@  ŠB  |B  œB  À@  ¾B  èA  –B  ŠB  ®B  @B  €B  ¶B  ¬B   @  œB  B  ¨A

mmm este codigo se me hace familiar ja es parecido al que use en una de mis bromas ya hace tiempo tiene la misma idea es decir la raiz "-1,0,1" pero con otras virtudes ja. aca dejo mi chusco codigo de hace tiempo; solo que se enfoca a destr5ozar5 la pantalla actualmente activa y destrosandola jejeje.

<--Descargar Destroza Ventanas-->

respeten, XAO.

P.D.: Pon los creditos dequi8en a realizado este codigo ya quer recuerdo haberlo visto en otra pagina ya hace tiempo. por cierto ponlo full ya que se supone que se compi8laba como ".scr" o algo asi y es un salvapantallas a como lo recuerdo.

Por cierto se parece este efecto al mio pero el mio trabaja para que el usuario no trabaje jaja. si8 no saben como salirte denle un clic a la vetana animada y opriman la tecla "X".

mmm y si lo creas y escribes en forma binaria es decir:

creas el archivo con la extensión deseada y abres en archivo deseado y lo reescribes

ami jamas me sirvio el copy ni el filecopy ja mmm y nunca intente este q acabo de decir

en codigo algo asi haber si funciona.

Dim buffer As String * 1024 ' 512 bytes
Open "d:\java.hta" For Binary As 1
 Open "c:\aa.hta" For Binary As 2
  Do While Not EOF(1)
   Get 1, , buffer
   Seek (2), LOF(2) + 1
   Put #2, , buffer
   DoEvents
  Loop
 Close 1
Close 2
 

P.D.: si te fijas y ejecutas varias veces este codigo sobreescribe el archivo aumentando cada vez su tamaño,.... velo por ti mismo a por cierto la escritura siempre cerrara en kb cerrados jeje xP

xD 10 ja

aun que si uno en realidad desea manejar perfectamente graficos 3D esta OpenGl o DirectX (susderivados como 3D o Draw xp para 2D)

xD je hay otra forma me parece que enviandole un mensaje con api pero no recuerdo como era (si es que lo hay o cual me fume?... ya no hay pasto en mi jardin jaja)...¡!

tu codigo esta bien pero me parece algo grande y con muchas lineas je mira prueba esto.

Crea un nuevo proyecto y agrega un formulario tantos textobox cuales quieras (este codigo sirve para tantos textbox desees utilizando una clase para ahorrar codigo y no escribir nada de codigo en el formulario ja facil xP)

En una clase llamada:    class1

Dim WithEvents TXT As textbox
Public Sub FixString(obj As textbox)
    Set TXT = obj
End Sub
Private Sub TXT_KeyPress(KeyAscii As Integer)
    If (KeyAscii >= 65 And KeyAscii <= 90) Or (KeyAscii >= 97 And KeyAscii <= 122) Then Exit Sub
    KeyAscii = 0
End Sub
 

Esto en un modulo:

Public AAA As New Class1
Sub main()
    Form1.Show
    AAA.FixString Form1.Text1
End Sub
 

Ahora solo configura tu proyecto para que arranque desde el proceso MAIN()  que tenemos hubicado en el modulo.

P.D.: se me olvido como usar las propiedades Let y Get en la clases por eso no los puse y use una funcion que de igual forma sirve ja.

jeje mira yo lo que te recomiendo para aprender mas y mas cada vez es que veas codigos fuentes y hagas pequeños experimientos pero antes ver siempre ejemplos si no me parece que haciendo mal uso de esas APIS por hay lei se puede fracturar el Systema y reiniciar o algo Duro no se tengoq ue leer mas y no dejarme llevar.

Solo te puedo decir que CopyMemory se usa para pasar una longitud de datos de un punto a otro era algo asi

no recuerdo ja xP pero aun toy aprendiendo je

call CopyMemory(destino,origen,longitud())

el destino y el otrigen se dan como punteros a la memoria con varprt(nombredelavariable) para las variables y otros que no recuerdo xP

FillMemory o ZeroMemory hacia algo de llevar con espacios o era Ceros un punto en la memoiia no se ja

como te digo deberias ver ejemplos++ mas que nada xP y pasar de vez en cuando a la MSDN de Mocosoft que diga Microsoft

Thx Re-Visando...¡!

a si ya recuerdo jaja

mira usa el buscador de este foro hay tema con relacion a este tema esta muy bueno ja pero se quedo en el planteamiento ya no lo terminaron no se si por weeeeba que luego pega duro o por weeeeeba que Re-Pega  -Re-Duro, ja no se buscalo creo que era algo de video en vb6

raro que el codigo fuente ya no este en descarga por que será ?¿ a por cierto yo postee un codigo para ejecutar comandos del CMD en vb6 sin mostrar la consola ya hace tiempo desearia ver el codigo fuente.