try
....
Catch ex As Exception
Dim Msgbox_F As New MsgBox_Fairy4.F_Msgbox
Msgbox_F.SetTimer(Handle.ToInt32, Msgbox_F.NV_CLOSEMSGBOX, 4000, AddressOf Msgbox_F.TimerProc)
' call the messagebox API function
Call Msgbox_F.MessageBox(Handle.ToInt32, "系統程式發生異常,4秒后自動重啟!", "Self Closing Message Box", Msgbox_F.MB_ICONQUESTION Or Msgbox_F.MB_TASKMODAL) 'Self Closing Message Box不能改變,否則無法關閉
System.Diagnostics.Process.Start(Application.StartupPath & "\StaffCheck.exe")
Application.DoEvents()
End
End Try
z这个是DLL,你自己下载去用: