membuat teks bolong

Untuk membuat teks bolong caranya cukup mudah! Pertama buka aplikasi visual basic, kemudian tambahkan 1 form dan 1 modul. pada modul, copypaste listing berikut:

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

Kemudian pada form1 tambahkan 1 (satu) buah picture. kemudian copypaste listing berikut:

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

Selamat mencoba!