Notifikasi Auto Close di VB6

Hai Codder. Ini artikel pertama saya tentang Desktop Programming VB6. Pada kali ini saya membagikan tutorial Notifikasi Auto Close di VB6. Langsung saja tutorial, berikut langkah-langkahnya :

Langkah 1 :

Buat 1 Form, design nya terserah agan, kayak gini misalnya :

Langkah 2 :

Tambahkan Control sebagai berikut :

Tambahkan 2 buah timer, dan 1 buah Button dengan name = cExit, Ini tampilannya :

Langkah 3 :

Isikan Script Berikut :

Dim TopUp As Boolean
Dim Times As Byte

Private Sub cExit_Click()
    TopUp = False
    Timer2.Enabled = True
End Sub

Private Sub Form_Load()
    Top = ((GetSystemMetrics(17) + GetSystemMetrics(4)) * Screen.TwipsPerPixelY)
    Left = (GetSystemMetrics(16) * Screen.TwipsPerPixelX) - Width
    TopUp = True
Times = Times + 10 'Hitung Mundur
Timer1.Enabled = True
Timer2.Enabled = True
End Sub

Private Sub Timer1_Timer()
Times = Times - 1
cExit.Caption = "&Exit " & Times
If Times = 0 Then
    TopUp = False
    Timer2.Enabled = True
End If
End Sub

Private Sub Timer2_Timer()
    Const S = 80 'Kecepatan Form Naik
    Dim v As Single
    v = (GetSystemMetrics(17) + GetSystemMetrics(4)) * Screen.TwipsPerPixelY
    
    If TopUp = True Then
        If Top - S <= v - Height Then
            Top = Top - (Top - (v - Height))
            Timer2.Enabled = False
        Else
            Top = Top - S
        End If
        
    Else
        Top = Top + S
        If Top >= v Then Unload Me
    End If
End Sub

Langkah 4 :

Tekan F5 Untuk Menjalankan, seharusnya tampak seperti ini :

Form tersebut bisa dikreasikan sesuai kreatifitas agan sekali, Selamat Mencoba. Sekian dari saya, sampai jumpa di artikel berikutnya.