CodeItBetter Programming Another VB Programming Blog

'Graphics - How to Draw Hollow Text

Option Explicit
 
Declare Function BeginPath Lib "gdi32" (ByVal hdc As Long) As Long
Declare Function EndPath Lib "gdi32" (ByVal hdc As Long) As Long
Declare Function StrokePath Lib "gdi32" (ByVal hdc As Long) As Long
 
'Add a picture box control and set its AutoRedraw property to true

Private Sub Form_Load()
    Const TXT = "http://codeitbetter.com/"
    Dim I As Long, hRgn As Long
    With Picture1
        .Font.Name = "Courier New"
        .Font.Bold = True
        .Font.Size = 50
        .Width = .TextWidth(TXT)
        .Height = .TextHeight(TXT)
        BeginPath .hdc
        .CurrentX = 0
        .CurrentY = 0
        .Print TXT
        EndPath .hdc
        StrokePath .hdc
    End With
End Sub