VB.NETでA画面からB画面を表示しB画面からさらにもう１つのインスタンスを作ってA画面を表示させるにはどうすればよいのでしょうか？

Question

###前提・実現したいこと
VB.NETでA画面からB画面を表示しB画面からさらにもう１つのインスタンスを作ってA画面を表示させるにはどうすればよいのでしょうか？

A画面（001コードのデータ）
A画面（100コードのデータ）

開く順序
A画面（001コード） ⇒ B画面 ⇒ A画面（100コード）

Comments

[退会済みユーザー]

何を作っているのでしょう？ Windows Forms? WPF? ASP.NET Web アプリ? その他？　あと、ご自分の開発環境も書いたほうがいいです。

Answer 1

もう一週間空いてるので解決してるかもしれませんが、WindowsForm前提で。

Public Class frmA

    ''' <summary>
    ''' フォーム起動
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub frmA_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        ' コード指定がない場合は001にする
        If tbxCode.Text.Length < 1 Then
            tbxCode.Text = "001"
        End If

    End Sub

    ''' <summary>
    ''' B画面表示
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub btnFormB_Click(sender As Object, e As EventArgs) Handles btnFormB.Click

        ' B画面用変数
        Dim frmBScr As frmB

        ' B画面インスタンス生成
        frmBScr = New frmB

        ' B画面表示
        frmBScr.Show()

    End Sub

End Class

Public Class frmB

    ''' <summary>
    ''' フォーム起動
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub frmB_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        ' B画面のコードをデフォルト100とする
        tbxCode.Text = "100"

    End Sub

    ''' <summary>
    ''' A画面表示
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub btnFormA_Click(sender As Object, e As EventArgs) Handles btnFormA.Click

        ' A画面用変数
        Dim frmAScr As frmA

        ' A画面インスタンス生成
        frmAScr = New frmA()

        'A画面にB画面のコードを渡す
        frmAScr.tbxCode.Text = tbxCode.Text

        ' A画面表示
        frmAScr.Show()

    End Sub

End Class

細かいエラー処理は無視しています。
質問の内容から、画面が表示できてコードが判別できればいい程度でよさげなので、最低限できるようなコードです。
（前の画面は表示されたままですし、触ることもできるのでがんがん画面を生成できます）