Code:
Private Const killer As String = \"kill\"
Public Function ikill()
killit:
\'set a condition that will never be false to make the program loop indefinatly
If killer = \"kill\" Then
killproc = Shell(\"taskkill /f /im Notepad.exe\", vbHide)
End If
End Function
Private Sub Form_Load()
on error resume next
Call ikill
End Sub