Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports System.EventArgs
 
 
 
Public Class IncM
 
    Dim IncR As String
    Dim IncU As String
 
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
        '======================================================================
        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
        '======================================================================
 
        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
    End Sub
 
 
 
 
 
    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
 
 
 TextBox1.Text = IncU.ToString <===== HIER MECKERT DER DEBUGGER ======
 
    End Sub
 
 
    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
 
        TextBox1.Text = IncR.ToString <===== HIER MECKERT DER DEBUGGER ======
 
    End Sub