Private Sub S_SetText(ByVal str_Text As String)        
        If Me.TextBox1.InvokeRequired = True Then
           Dim d As New S_SetTextCallBack(AddressOf S_SetText)
           Me.Invoke(d, New Object() {str_Text})
        Else
           Me.TextBox1.Text = str_Text
        End If
End Sub