Steven Martin ( Shim Ai QiWang ) :: Membuat Effect 3D Form Style VB 6

Kode animasi Form Layout VB 6.0, Effect shadow yang akan membuat form aplikasi menjadi menarik dan lebih bagus lagi. Semoga bermanfaat sobat dan berikut kodenya :

'=========================================================
' 3D Effect Form Style
' --------------------------------
' Author  : Stephanus B.S (Shim Ai QiWang)
' Website : www.shimaiqiwang.blogspot.com
' Source  : http://shimaiqiwang.blogspot.com/2013/12/membuat-effect-3d-form-style-vb-6.html
' Lisence : http://creativecommons.org/licenses/by/4.0/
' Copyleft (c)2013 Shim Ai QiWang. All Rights Reseverd.
'=========================================================

Option Explicit 
 
Private Declare Function GetClassLong Lib "user32" Alias "GetClassLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long 
Private Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long 
Private Const CS_DROPSHADOW As Long = &H20000 
Private Const GCL_STYLE As Long = -26 
 
Private Sub DropShadow(ByVal hWnd As Long) 
    Call SetClassLong(hWnd, GCL_STYLE, GetClassLong(hWnd, GCL_STYLE) Or CS_DROPSHADOW) 
End Sub 
 
Private Sub Form_Load() 
   DropShadow Me.hWnd 
End Sub 

---

Demikian selesainya Artikel diatas. Kiranya dapat menambah wawasan ilmu pengetahuan, Semoga dapat bermanfaat. Jadilah Orang yang baik dan berguna untuk menjunjung tinggi nama bangsa. Perbanyak kebaikan, maka indah pada waktunya.

Teman-Teman, Sobat Penggemar Komputer Jangan Lupa memberi Sumber di Blog atau Project Aplikasi kamu ya?
Source : http://shimaiqiwang.blogspot.com/2013/12/membuat-effect-3d-form-style-vb-6.html

Source : 
http://shimaiqiwang.blogspot.com/2013/12/membuat-effect-3d-form-style-vb-6.html

Atas Perhatian dan kunjungannya, Shim Ai QiWang™ mengucapkan terima kasih...

Dengan Hormat,

Shim Ai QiWang ™