! 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 "Kaca Mata IT"
Me.CurrentX = 40
Me.CurrentY = 40
Me.FontSize = 24
Me.ForeColor = vbBlack
Print "Kaca Mata IT"
Me.CurrentX = 20
Me.CurrentY = 20
Me.FontSize = 24
Me.ForeColor = vbRed
Print "Kaca Mata 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