Option Explicit On Imports MfgLib Public Class myProgram Public WithEvents m_Interface As New MfgLib.ClientEvent Private Sub myProgram_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Try ' mycode Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical, "Critical Error") End Try End Sub Private Sub m_Interface_TaskComplete(ByVal status As Integer) Handles m_Interface.TaskComplete Try ' my code Catch ex As Exception update_Log(ex.Message, MsgBoxStyle.Critical) End Try End Sub end class
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)