Código de Barras!!!

Rubinho, mas o meu grande problema é que eu naum estou utilizando cristal report estou direto pelo comando PrintForm...
Estou precisando a font interlevead 2 of 5, ou outro tipo de programação que imprima codigo de barras (Boleto Bancário) sem utilizar cristal report...

valeu...

a programação é a seguinte

Private Sub Command1_Click()
Call VerificaCodigo(Text1.Text)
Text2.Text = vCodigo
Label3.Caption = vCodigo
End Sub

Private Sub Command2_Click()
PrintForm
End Sub

Private Sub Form_Load()
Call PadronizaCodigos
End Sub

Public vCod(99)
Public vCodigo As String

Public Sub PadronizaCodigos()
vCod(0) = "AADDA"
vCod(1) = "BACCB"
vCod(2) = "ABCCB"
vCod(3) = "BBCCA"
vCod(4) = "AADCB"
vCod(5) = "BADCA"
vCod(6) = "ABDCA"
vCod(7) = "AACDB"
vCod(8) = "BACDA"
vCod(9) = "ABCDA"
vCod(10) = "CABBC"
vCod(11) = "DAAAD"
vCod(12) = "CBAAD"
vCod(13) = "DBAAC"
vCod(14) = "CABAD"
vCod(15) = "DABAC"
vCod(16) = "CBBAC"
vCod(17) = "CAABD"
vCod(18) = "DAABC"
vCod(19) = "CBABC"
vCod(20) = "ACBBC"
vCod(21) = "BCAAD"
vCod(22) = "ADAAD"
vCod(23) = "BDAAC"
vCod(24) = "ACBAD"
vCod(25) = "BCBAC"
vCod(26) = "ADBAC"
vCod(27) = "ACABD"
vCod(28) = "BCABC"
vCod(29) = "ADABC"
vCod(30) = "CCBBA"
vCod(31) = "DCAAB"
vCod(32) = "CDAAB"
vCod(33) = "DDAAA"
vCod(34) = "CCBAB"
vCod(35) = "DCBAA"
vCod(36) = "CDBAA"
vCod(37) = "CCABB"
vCod(38) = "DCABA"
vCod(39) = "CDABA"
vCod(40) = "AADBC"
vCod(41) = "BACAD"
vCod(42) = "ABCAD"
vCod(43) = "BBCAC"
vCod(44) = "AADAD"
vCod(45) = "BADAC"
vCod(46) = "ABDAC"
vCod(47) = "AACBD"
vCod(48) = "BACBC"
vCod(49) = "ABCBC"
vCod(50) = "CADBA"
vCod(51) = "DACAB"
vCod(52) = "CBCAB"
vCod(53) = "DBCAA"
vCod(54) = "CADAB"
vCod(55) = "DADAA"
vCod(56) = "CBDAA"
vCod(57) = "CACBB"
vCod(58) = "DACBA"
vCod(59) = "CBCBA"
vCod(60) = "ACDBA"
vCod(61) = "BCCAB"
vCod(62) = "ADCAB"
vCod(63) = "BDCAA"
vCod(64) = "ACDAB"
vCod(65) = "BCDAA"
vCod(66) = "ADDAA"
vCod(67) = "ACCBB"
vCod(68) = "BCCBA"
vCod(69) = "ADCBA"
vCod(70) = "AABDC"
vCod(71) = "BAACD"
vCod(72) = "ABACD"
vCod(73) = "BBACC"
vCod(74) = "AABCD"
vCod(75) = "BABCC"
vCod(76) = "ABBCC"
vCod(77) = "AAADD"
vCod(78) = "BAADC"
vCod(79) = "ABADC"
vCod(80) = "CABDA"
vCod(81) = "DAACB"
vCod(82) = "CBACB"
vCod(83) = "DBACA"
vCod(84) = "CABCB"
vCod(85) = "DABCA"
vCod(86) = "CBBCA"
vCod(87) = "CAADB"
vCod(88) = "DAADA"
vCod(89) = "CBADA"
vCod(90) = "ACBDA"
vCod(91) = "BCACB"
vCod(92) = "ADACB"
vCod(93) = "BDACA"
vCod(94) = "ACBCB"
vCod(95) = "BCBCA"
vCod(96) = "ADBCA"
vCod(97) = "ACADB"
vCod(98) = "BCADA"
vCod(99) = "ADADA"
End Sub

Public Sub VerificaCodigo(codigo As String)
vCodigo = "<"
For q = 1 To Len(codigo)
b = Mid(codigo, q, 2)
If b = "" Then GoTo termina
vCodigo = vCodigo & vCod(b)
q = q + 1
Next q
termina:
vCodigo = vCodigo & ">"
End Sub