TextBox1.AppendText

Public Class IncM
 
    Dim IncU
    Dim IncR
 
    Private Sub IncM_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        IncU = "28D5021A 00002000" & vbNewLine & _
               "4A000000 80D51586" & vbNewLine & _
               "DE000000 80008180" & vbNewLine & _
               "94010000 00000000" & vbNewLine & _
               "A8000008 00000001" & vbNewLine & _
               "86000000 00000001" & vbNewLine & _
               "94010000 00000000" & vbNewLine & _
               "E0000000 80008000" & vbNewLine
 
        IncR = "28D5021A 00000100" & vbNewLine & _
               "DE000000 80008180" & vbNewLine & _
               "4A000000 80D51586" & vbNewLine & _
               "A8000008 00000001" & vbNewLine & _
               "94010000 00000000" & vbNewLine & _
               "86000000 FFFFFFFF" & vbNewLine & _
               "94010000 00000000" & vbNewLine & _
               "E0000000 80008000" & vbNewLine
        '======================================================================
 
 
        If RadioButton1.Checked = True Then
            TextBox1.AppendText(IncU.ToString())
        Else
            TextBox1.Clear()
            If RadioButton2.Checked = True Then
                TextBox1.AppendText(IncR.ToString())
            Else
                TextBox1.Clear()
            End If
        End If
    End Sub
End Class