次のコードを試してみて下さい。
Form1上にはボタン一つとテキストボックス1つを置きます。
Form2上にはボタンを一つ置きます。
Form1でForm2を作成して、Form2上のボタンを押すと
Fomm1上のTextBoxに文字を書き込みます。
Public Class Form1
Dim F2 As Form2
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
F2 = New Form2(Me)
F2.Visible = True
End Sub
End Class
Public Class Form2
Private F1 As Form1
'フォーム起動時に親から呼び出される
Public Sub New(ByVal _F1 As Form1)
InitializeComponent() 'これは必ず必要です
F1 = _F1
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
F1.TextBox1.Text = "Hello"
End Sub
End Class
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click
Common.A7 = "12345"
End Sub
end Class
Public Class clsAA
Private _A7 As String
Public Property A7() As String
Get
Return _A7
End Get
Set(ByVal value As String)
_A7 = value
End Set
End Property
end Class
としたとき
Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)_
Handles Button1.Click
TextBox1.text=Form1.Common.A7
End Sub
End Class