自己解決しました。

元々、スタートアップフォームであるForm1より、Mainクラスを呼出し、Mainクラスでメインの処理を担当、
前出、（概要のClass２）をマルチスレッド化して、イベントをMainクラスに投げ、Mainクラスで音を鳴らす予定でした。

(要点のみ）

※変更前
----------------------------------------------------------------------------------
Public Class Form1
    private sub Form1_Load(ByVal sender As Object, ByVal e As eventAugs) Handles Mybase.Load
        Dim m As New Main(Me)
    End Sub
End Class


Public Class Main
    Inherits Sound

    Public Property f As Form1
    Private WithEvents lcs As New LanConverter.LanConverters()
    Private WithEvents Sensers As New SenserS()
    Private Settings As New Settings()
    Private Olc As New List(Of String)

    Private Sub New(ByVal f as form)
        Me.f = f
    End Sub

    Private Sub OutputEventsCatch(ByVal sender As Object, ByVal e As LanConverter.LCEventArgs) Handles Sensers.AleartEvent

        Select Case e.InputStatus
            Case SenserInterface.SenserInputStatus.通常
                Sound(snd.None)
            Case SenserInterface.SenserInputStatus.発報
                Sound(snd.Warning)
            (・・・省略・・・）
         End Select
    End Sub
End Class
----------------------------------------------------------------------------------