VB with extended ASCII-table

Extended ASCII characters vary depending on the character set and the font in use. You will need to loop through your printer fonts to find one that gives the character that you want.

I did it with a form with a 375 x 375 textbox in the topleft, set to be the first member of an array of textboxes and called text1(0), and a command button called command1
[tt]
Private Sub Command1_Click()
Dim f as Long
For f = 1 To Printer.FontCount - 1
Load Text1(f)
With Text1(f)
.Visible = True
.Left = (f * 375) Mod Me.Width
.Top = 380 * ((f * 375) \ Me.Width)
.Font = Printer.Fonts(f)
.Text = Chr(196)
End With
Next
End Sub

Private Sub Text1_DblClick(Index As Integer)
Debug.Print Screen.Fonts(Index)
End Sub
[/tt]
This will loop through the printer fonts, with 1 charcter per box. If you doubleclick on the one you want, it's name appears in the Immediate window.

I'm afraid it's a bit quick and dirty, but you will get the idea

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'People who live in windowed environments shouldn't cast pointers.'

This gave me an idea, ok, i'll do some more testings...
Thanks for the tip !

Pedro...

Under Windows there is a Terninal font, that simulates DOS characters (with all pseudographics).
At least, it was on Win 95, 98.

There still is, and this method will find it, but he may find something a bit nicer...

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'People who live in windowed environments shouldn't cast pointers.'