Membuat Text 3D (VB 6.0)

Nih saya bagikan lagi ke teman-teman kode pogram untuk membuat text 3D di dalam Form. Sebenarnya kode program ini tidak begitu diperlukan, akan tetapi sekedar untuk teman-teman ketahui saja. Ok, langsung saja ke TKP.

Nih kode programnya.

Private Sub Form_Load()
    Me.AutoRedraw = True
    Me.FontSize = 30
    Dim shadowx
    Dim shadowy
    ScaleMode = 3
    ForeColor = "&H808080"
    shadowx = 5
    shadowy = 5
    For i = 0 To 5
        CurrentX = shadowx + i
        CurrentY = shadowy + i
        If i = 5 Then Me.ForeColor = vbWhite
            Me.Print "Tips & Trik VB 6.0" 'Ganti disini sesuai keinginan Anda.
    Next
End Sub

Untuk contohnya Anda bisa mendownloadnya disini.