Teks Tembus Pandang Menggunakan VB 6.0

langkah pertama yang harus rekan-rekan lakukan adalah

Buatlah sebuah project dengan standartd EXE.
kemudian buatlah satu buah picture terserah mo dinamai apa.... yang penting pake picture. ok...........

kalau sudah copy pastekan koding dibawah ini ke menu editor rekan2:


Private Sub Form_Load()

Const TXT = "Manusia Biasa"----->>> bisa diganti dengan keinginan anda
Dim i As Long
Dim hRgn As Long
Picture1.AutoRedraw = True

'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