why? example of my code: Sub App_Start hw.New1 hw.RunAppAtEvent("gprs_check1.exe",hw.evNetDisconnect) hw.RunAppAtEvent("gprs_check2.exe",hw.evNetconnect) End Sub