! Tutorial Membuat Efek Tampilan Teks 3D Pada Form

 Untuk pembuatan tip ini hasil didapatkan adalah adanya efek 3D pada teks di dalam area dorm. berikut adalah gambar hasil uji coba aplikasi dan contoh penulisan listing programmnya.

Ini listing programnya :)


Private Sub Form_Load()
Me.FontBold = True
Me.FontName = "Comic Sans MS"
Me.BackColor = vbBlue
End Sub

Private Sub Form_Paint()
Me.CurrentX = 80
Me.CurrentY = 80
Me.FontSize = 24
Me.ForeColor = vbWhite
Print "SURGA IT"
Me.CurrentX = 40
Me.CurrentY = 40
Me.FontSize = 24
Me.ForeColor = vbBlack
Print "SURGA IT"
Me.CurrentX = 20
Me.CurrentY = 20
Me.FontSize = 24
Me.ForeColor = vbRed
Print "SURGA IT"
End Sub


Pada hasil aplikasi jadi di atas, Anda bisa mengubah tampilan/settingan fontnya sesuai yg anda inginkan, dan warna warna nya pun dapat di ubah sebagai efek 3D sesuai pilihan anda :) Let's Try It