cara buat popup pada taksbar

Salah satu contoh Biasanya pesan ini muncul ketika suatu Antivirus meminta untuk Update, atau menampilkan laporan ketika sudah terupdatenya Antivirus yang anda gunakan seperti Avast berikut ini :

Seperti pada judul posting untuk kali ini, saya akan membuat pesan muncul pada sudut kanan taskbar menggunakan Visual Basic 6.0, Langsung saja :

Buat satu form terserah design ada, tapi jangan terlalu besar .
Lalu tambahkan components :
Timer1 : - interval = 10
Untuk properties form :
Border-style harus bernilai 'none' .
ShowInTaskBar bernilai false
Tambahkan Source kode :

Dim DirectionIsUp As Boolean

Private Sub Form_Load()
 Me.Top = Screen.Height + 10
Me.Left = Screen.Width - (Me.Width + 100)
DirectionIsUp = True
End Sub

Private Sub Timer1_Timer()
If DirectionIsUp Then
Me.Top = Me.Top - 50
If (Me.Top <= Screen.Height - (Me.Height - 10)) Then
Timer1.Interval = 4000
DirectionIsUp = False
End If
Else
Me.Top = Me.Top + 50
If Me.Top >= Screen.Height + 10 Then
Timer1.Enabled = False
Unload Me
End If
End If
End Sub

Jika sudah, jalankan dan lihat hasilnya ! :)
Seperti ini :

 

Sekian, mudah-mudahan bermanfaat ..