Ascii Kode Untuk Garis (Untuk Print Dot Matrix VB6)

Cara Penggunaan :
Buat Fungsi seperti dibawah ini

Function Ln(KodeDesimal As Integer, Optional Jumlah As Integer) As String

Dim i As Integer

    If Jumlah = 0 Then Jumlah = 1

    For i = 1 To Jumlah

        Ln = Ln & Chr$(KodeDesimal)

    Next i

End Function

Cara penggunaannya

Contoh Membuat garis dobel sebanyak 10 karakter :

 Ln(205, 10)