>>ちゅーぼーさん 
 
Module Module1 
Public aaa As String  
End Module 
ーーーーーーーーーー 
Public Class Form1 
 
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
 
 'RadioButton1を選択した場合 
   If RadioButton1.Checked Then 
 
   '文字を代入  
　　aaa = "テスト"  
 
    'インスタンス作成 
     Dim f As New Form2 
 
     '■form2のプロパティのﾃｷｽﾄを変更 
      f.Text = "テスト12345" 
 
      'From1を非表示にする 
       Me.Visible = False 
 
      'From1を閉じてFrom2へ 
        f.Show() 
        Me.Hide() 
 
        Else 
            MsgBox("チェックされていません。") 
        End If 
 
    End Sub 
End Class 
ーーーーーーーーーーーーー 
Public Class Form2 
 
    Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 
 
　　'文字をセット  
　　Label1.Text = aaa  
 
    End Sub 
End Class 
 
ーーーーーーーーーーーーー 
 
これです。よろしくお願いします。