Public a(1, x) As String End Module Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click a(0, x) = TextBox1.Text a(1, x) = TextBox2.Text
x = x + 1 ReDim Preserve a(1, x) End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim frmform2 As New form2 frmform2.Show() End Sub End ClassPublic Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click ここがわかりません End Sub
End Class Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click ここがわかりません End Sub End Class