[سؤال] كود في MessageBox - نسخة قابلة للطباعة

كود :
Public Class Form2

    Dim x As String = "MessageBox.Show("

    Dim y As String = """"

    Dim z As String = ","

    Dim s As String = "&"

    Dim r As String = "MessageBoxButtons.OKCancel"

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

        If RadioButton11.Checked = True Then

            MessageBox.Show(TextBox1.Text, TextBox2.Text)

        ElseIf RadioButton1.Checked = True Then

            MessageBox.Show(TextBox1.Text, TextBox2.Text, MessageBoxButtons.OKCancel)

        ElseIf RadioButton2.Checked = True Then

            MessageBox.Show(TextBox1.Text, TextBox2.Text, MessageBoxButtons.OK)

        ElseIf RadioButton3.Checked = True Then

            MessageBox.Show(TextBox1.Text, TextBox2.Text, MessageBoxButtons.AbortRetryIgnore)

        ElseIf RadioButton4.Checked = True Then

            MessageBox.Show(TextBox1.Text, TextBox2.Text, MessageBoxButtons.RetryCancel)

        ElseIf RadioButton5.Checked = True Then

            MessageBox.Show(TextBox1.Text, TextBox2.Text, MessageBoxButtons.YesNoCancel)

        Else

            MessageBox.Show("يجب اختيار زر", "error", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button3, MessageBoxOptions.RtlReading)

        End If



        If RadioButton6.Checked = True And RadioButton1.Checked = True Then

            MessageBox.Show(TextBox1.Text, TextBox2.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)

        End If



    End Sub



    Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click



        TextBox3.Text = (x & y & (TextBox1.Text) & y & z & y & (TextBox2.Text) & y & ")")



        If TextBox1.Text = "" And TextBox2.Text = "" Then

            TextBox3.Text = "MessageBox.Show("")"

        End If



        If TextBox1.Text = "" Then

            TextBox3.Text = (x & y & (TextBox2.Text) & y & ")")

        End If



        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''



        If TextBox2.Text = "" Then

            TextBox3.Text = (x & y & (TextBox1.Text) & y & ")")

        End If



        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''



        If RadioButton1.Checked = True Then

            TextBox3.Text = (x & y & (TextBox1.Text) & y & z & y & (TextBox2.Text) & y & z & r & ")")

        ElseIf RadioButton2.Checked = True Then

            TextBox3.Text = (x & y & (TextBox1.Text) & y & z & y & (TextBox2.Text) & y & z & "MessageBoxButtons.OK" & ")")

        ElseIf RadioButton2.Checked = True Then

            TextBox3.Text = (x & y & (TextBox1.Text) & y & z & y & (TextBox2.Text) & y & z & "MessageBoxButtons.AbortRetryIgnore" & ")")

        ElseIf RadioButton3.Checked = True Then

            TextBox3.Text = (x & y & (TextBox1.Text) & y & z & y & (TextBox2.Text) & y & z & "MessageBoxButtons.AbortRetryIgnore" & ")")

        ElseIf RadioButton4.Checked = True Then

            TextBox3.Text = (x & y & (TextBox1.Text) & y & z & y & (TextBox2.Text) & y & z & "MessageBoxButtons.RetryCancel" & ")")

        ElseIf RadioButton5.Checked = True Then

            TextBox3.Text = (x & y & (TextBox1.Text) & y & z & y & (TextBox2.Text) & y & z & "MessageBoxButtons.YesNoCancel" & ")")

        End If

    End Sub



    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



    End Sub

End Class