Dim CharVectors() As Int = Array As Int(Printer1.CreateBox(0,0,200,200,False))
Printer1.DefineCustomCharacter(62, Printer1.CreateCustomCharacter(CharVectors, 0))
Printer1.UseCustomCharacters = True
Printer1.WriteString(">" & CRLF)
'acording to second message, i change this code
' For i = 62 To 62
' Printer1.DeleteCustomCharacter(i)
' Next
Printer1.DeleteCustomCharacter(62)