Public Shared waitermethodname As String
    Public Shared waitermethodstring As String
 
    Private Sub Wait()
        Dim stack_t As New System.Diagnostics.StackTrace()
        Dim stack_f As System.Diagnostics.StackFrame = stack_t.GetFrame(1)
        Dim mb As System.Reflection.MethodBase = stack_f.GetMethod
        waitermethodname = mb.Name.ToString
        waitermethodstring = sctrl(Me, waitermethodname.Substring(0, _
          waitermethodname.Length - 12)).Text
        Dim thrd As New Threading.Thread(AddressOf Sleep)
        thrd.Start()
    End Sub
 
    Private Sub Sleep()
        Dim waiterstr As String = waitermethodstring
        Dim waiter As String = waitermethodname.Substring(0, _
          waitermethodname.Length - 12) & "_n"
        Threading.Thread.Sleep(800)
        If waiterstr = waitermethodstring Then
            Microsoft.VisualBasic.CallByName(Me, waiter, CallType.Get)
        End If
 
    End Sub
 
    Private Function sctrl(ByVal f As Form, ByVal name As String) As Control
        Dim t As Type = f.GetType()
        Dim flds() As System.Reflection.FieldInfo = t.GetFields( _
          System.Reflection.BindingFlags.Instance Or _
          System.Reflection.BindingFlags.Public Or _
          System.Reflection.BindingFlags.NonPublic)
        Dim fld As System.Reflection.FieldInfo
        For Each fld In flds
            If fld.Name = name Or fld.Name = "_" + name Then
                Return fld.GetValue(f)
            End If
        Next
    End Function
 
 
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TextBox1.TextChanged
        Wait()
    End Sub
 
    Public Shared Sub Textbox1_n()
        MessageBox.Show("ok")
    End Sub