Un label q diga "Se activara en 30 segundos", luego 29, luego 28, etc

[darkhack]

aa mira ese codigo ya lo coloco una vez en el foro Fann_lavigne
aqui esta lo que el escribio

'Delete an existing icon.

Dim i As Integer
Dim nid As NOTIFYICONDATA

nid = setNOTIFYICONDATA(hWnd:=Form1.hWnd, _
ID:=vbNull, _
Flags:=NIF_MESSAGE Or NIF_ICON _
Or NIF_TIP, _
CallbackMessage:=vbNull, _
Icon:=Form1.Icon, _
Tip:="")

i = Shell_NotifyIconA(NIM_DELETE, nid)

Solo adaptalo a lo que tu necesites