Visual Basic 6 - Problema Timer

Ciao ho un problema perchè non riesco a far funzionare il timer e mi serve il vostro aiuto.

Vorrei che premendo un commandbutton mi si aprisse una pagina web

(questo è il codice
Dim shell As Object
shell = CreateObject("shell.application"
shell.open("pompeiluca.it"
)

e dopo un intervallo di 5 secondi vorrei che automaticamente terminasse il processo iexplore.exe

(questo è il codice
Dim procs As Object, proc As Object
procs = GetObject("winmgmts:".ExecQuery("Select * FROM Win32_Process WHERE Name='iexplore.exe'"
For Each proc In procs
proc.Terminate()
Next
)

Aiutatemi!

ma questo programma in che linguaggio lo stai realizzando? VB6 o vb.net? perchè prima hai scritto un topic, e il codice che hai postato era vb.net e io ti ho detto che per problemi relativi al vb.net c'è la sezione apposita(.NET World), perchè in questa si parla di problemi relativi al vb6.

comunque un timer in VB6 su utilizza in questo modo:

timer1.enable=true 'avvio del timer
timer1.interval=5000 'setta 5 secondi
 
Private Sub Timer1_Timer()
'qui scrivi il codice da eseguire
End Sub

Ciao.

Private Sub Timer1_Timer()
'qui scrivi il codice da eseguire
End Sub 

Preciamente,io non farei come te,ma se ho capito bene apri la pagina web appena apri il prog,e dopo 5 sec dall'apertura chiudi il processo...Allora,aggiungi un timer con interval a 5000 e enabled = true e metti

Private Sub Timer1_Timer()
For Each obj In GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_Process WHERE Name='iexplore.exe'")
     obj.Terminate
Next
End sub

MEntre in form load metti :

Shell "http://www.ciao.it"