|
Public Class Down
Public Sub DownRun ()
s = xxx
I want to trigger the XinXi event in MAIN and pass the parameter S
end sub
end class
public class main
Event XinXi (ByVal sender As Object, ByVal s As String)
private sub a
dim r as new down
Dim t As New System.Threading.Thread (AddressOf r.DownRun)
t.Start ()
end sub |
|