For i As Integer = 0 To partcount Step 1
            part(i).name = fh.ReadChar()
            part(i).unk1 = fh.ReadSingle()
        Next
        Form1.RichTextBox1.AppendText(partcount & " " & part(0).name)