Code:
Private Sub Command0_Click()
Dim PRN As String

Dim VAR1, VAR2,As String

PRN = \"LPT1\"
VAR1 = \"BarCode\"
VAR2 = \"123456\"


Open PRN For Output As #1


Print #1, \"N\" & Chr(13)

Item = \"A320,15,0,1,1,2,N,\" + Chr$(34) + \"Belal Al hifawi\" + Chr$(34) + Chr$(13)
Print #1, Item

Item = \"B330,50,0,1,2,2,90,B,\" & Chr$(34) & \" \" & VAR2 & \" \" & Chr$(34) + Chr$(13)
Print #1, Item

Item = \"A320,160,0,1,1,2,N,\" + Chr$(34) & VAR1 & Chr$(34) + Chr$(13)
Print #1, Item

Print #1, \"P1\" & Chr(13)

Close #1