Animasi Picture

- 1 Module, 1 Picturebox
-------------------------------------------------------------------------
- Pada 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
-------------------------------------------------------------------------
- Pada Form

Private Sub Form_Load()
'Ganti "Rezza Aziel Gagina" dengan teks yang ingin Anda tampilkan
  Const TXT = "Rezza Aziel Gagina"
  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