Membuat Efek Form Berkedip

Walaupun sederhana tapi efek ini lumayan (lumayan dari pada gak ada efek sama sekali...hahahaha)

Langsung aja deh...
1. Buat project baru
2. Buat 2 buah form (kasih nama misal form yg ke 1 "form1", yg ke 2 "fmkedip")
3. di form yang pertama tambahkan tombol/command (terserah mau dikasi nma apa ni tombol)



4. trus di form yang ke 2 (yang bernama "fmkedip") tambahkan timer (kasih nama lagi.. :D ---misal "tmr")


5. sekarang kita tambahkan code di bawah ini....


-------Form1private sub command1_click()

fmkedip.show 1

end sub


-------Fmkedip

Option Explicit


Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long



Private Sub Form_Load()

tmr.Interval = 1000 / 5
tmr.Enabled = True

End Sub



Private Sub tmr_Timer()

Dim Ret As Long
Ret = FlashWindow(hwnd, CLng(True))

End Sub

----------------

6. Cukup cuma segitu aja..trus pencet F5 untuk nge-run program..

Semoga bermanfaat...selamat mencoba..

- download source code : Form Kedip (1,61 kb)