Membuat Program Auto Close di Injector

tau kan autoclose ?
menutup sendirinya dengan menggunakan Timer

Bahan :

-.Siapkan 1 buah form
-1 buah Timer
-1 buah command

Timer : Interval 1000
Command : cmdClose

Jika sudah tersusun rapi
klik kanan form >> view code
masukan code di bawah ini

Spoiler:''

Dim Second As Integer

Private Sub cmdClose_Click()
    End
End Sub
Private Sub Form_Load()
    Second = 10
    Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
    If (Second < 0) Then End
    cmdClose.Caption = "&Close (" & Second & ")"
    Second = Second - 1
End Sub

Gampang kan ?