This code:-
Public Sub Form_Open()
  Paint.Begin(hDwa)     'drawing area
    Paint.Font = Font["Ubuntu Sans, 16"]
    Paint.RichText("Title", 10, 10, 50)
    Paint.Stroke
    Paint.Font = Font["Sans Serif, 12"]
    Paint.RichText("Info", 10, 100, 50)
    Paint.Stroke
  Paint.End
End

Produces:- this doesn't look right at all.

 

Any advice appreciated
 

How do you want it to look?

What ever font style I choose I get the image
This what Courier 10 Pitch looks like

This what I'm getting

Hi bill-lancaster
I'm not sure I understand the problem, but if you use stroke, you draw the outline; if you use fill, you fill the drawing.

If you're looking for a fill, consider Paint.DrawRichText.
If you only want to draw the outline with small characters, the result won't be good.
You can try playing with linewidth, which accepts a float…

 

Thanks Guilangi, I hadn't realised the difference between stroke & fill.
All is well now.