Menampilkan Teks Bolong di Form

'Pembuat : Masino Sinaga (masino_sinaga@posindonesia.co.id)
'Diupload : Rabu, 15 Mei 2002
'Persiapan: 1. Buat 1 Project baru dengan 1 Form, 1 Module,
' dan 1 PictureBox.
' 2. Copy-kan coding berikut ke editor form & module ybt.
-------------------------------------------------------------------------

'--- Coding ini di Module...
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
'--- Akhir coding di Module...

'--- Coding ini di Form...
Private Sub Form_Load()
'Ganti "Masino Sinaga" dengan teks yang ingin Anda tampilkan
Const TXT = "Masino Sinaga"
Dim i As Long
Dim hRgn As Long
Picture1.AutoRedraw = True

'Pilih huruf. Sesuaikan dengan keinginan Anda...
Picture1.Font.Name = "Times New Roman"
Picture1.Font.Bold = True
Picture1.Font.Size = 50

'Buat ukuran Picture1 cukup besar
Picture1.Width = Picture1.TextWidth(TXT)
Picture1.Height = Picture1.TextHeight(TXT)

'Untuk letak Picture1
BeginPath Picture1.hdc
Picture1.CurrentX = 0
Picture1.CurrentY = 0
Picture1.Print TXT
EndPath Picture1.hdc

'Gambar teks...
StrokePath Picture1.hdc
End Sub
'--- Akhir coding di Form...