Membuat Form Berkedip

Sisipkan 1 command , & 1 Module


 •)Pastekan Kode Berikut Di Module


Option Explicit

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

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

•)Lalu Kode Ini Di Form


Private Sub Command1_Click()
Dim x As Long
    For c = 1 To 10
        x = FlashWindow(Form1.hwnd, 1)
        Sleep 100
    Next c
        x = FlashWindow(Form1.hwnd, 0)
End Sub



Disini Saya Akan Memberikan Tutorial Yg Simple Dan Dimengerti
Jadi.....


Selamat Berkreasi

Penulis : Unknown ~ Sebuah blog yang menyediakan berbagai macam informasi, software, dan tutorial

Artikel Membuat Form Berkedip ini dipublish oleh Unknown pada hari Sabtu, 02 Juli 2011. Semoga artikel ini dapat bermanfaat.Terimakasih atas kunjungan Anda silahkan tinggalkan komentar.sudah ada 0 komentar: di postingan Membuat Form Berkedip