Dim strText As String = e_world.Data
        strText.StartsWith("=                                                 " & _
          "=")

    Public Sub GetData_world(ByVal sender As Object, ByVal e_world As _
      System.Diagnostics.DataReceivedEventArgs)
        If e_world.Data Is Nothing Then Exit Sub
        If e_world.Data.Length = 0 Then Exit Sub
 
        Dim strText As String = e_world.Data
 
        If strText.StartsWith("=") = True Then
 
            If strText.EndsWith(" 100%  ") Then
                TextBox2.AppendText( _
                  "==================================================== 100%  ")
                TextBox2.AppendText(vbNewLine)
            End If
 
        Else
            TextBox2.AppendText(e_world.Data)
            TextBox2.AppendText(vbNewLine)
        End If
    End Sub