Public Class serchClass Public Event searchend(ByVal t As Integer,ByVal n As String) public sub sub1() RaiseEvent searchend(0,1) end sub end class 在form 里 Dim WithEvents serchClass1 As New serchClass Private Sub 开始批量查() serchClass1.search() End Sub Private Sub 批量查事件(ByVal t As Integer,ByVal n As String) Handles serchClass1.searchend Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>(t & n) End Sub