Public Class Form1
 
    Private sTest(0) As String
 
    Private Sub AxCommand1_ClickEvent(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles AxCommand1.ClickEvent
        MsgBox(sTest(1))
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        MsgBox(sTest(1))
    End Sub
 
End Class

Partial Friend Class MyApplication
 
   Private Sub MyApplication_UnhandledException(ByVal sender As Object, ByVal e _
     As Microsoft.VisualBasic.ApplicationServices.UnhandledExceptionEventArgs) _
     Handles Me.UnhandledException
            MsgBox(e.Exception.Message)
   End Sub
 
End Class