Code:

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        If RadioButton1.Checked Then
            TextBox1.Text = 1
        ElseIf RadioButton2.Checked Then
            TextBox1.Text = 2
        ElseIf RadioButton3.Checked Then
            TextBox1.Text = 3
        End If

    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        If RadioButton2.Checked Then
            TextBox1.Text = 2
        ElseIf RadioButton1.Checked Then
            TextBox1.Text = 1
        ElseIf RadioButton3.Checked Then
            TextBox1.Text = 3
        End If
    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        If RadioButton3.Checked Then
            TextBox1.Text = 3
        ElseIf RadioButton2.Checked Then
            TextBox1.Text = 2
        ElseIf RadioButton1.Checked Then
            TextBox1.Text = 1
        End If

    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

    End Sub

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

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

    End Sub
End Class

Code:

Public Class Form2
    Dim Fo1 As New Form1()
Private Sub Text2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Text22.Text = Fo1.Text2.Text
End Class

    End Sub