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


LinkBack URL
About LinkBacks
Reply With Quote


Bookmarks