Private Delegate Sub ListBoxaddcallback(ByVal str As String) Private listboxadd1 As New ListBoxaddcallback(AddressOf listboxadd) Private Sub listboxadd(ByVal str As String) If ListBox1.InvokeRequired Then ListBox1.Invoke(listboxadd1, str) Else ListBox1.Items.Add(str) End If End Sub 调用的时候listboxadd("dsfsdf")