もう一週間空いてるので解決してるかもしれませんが、WindowsForm前提で。
VB.net
1Public Class frmA
2
3 ''' <summary>
4 ''' フォーム起動
5 ''' </summary>
6 ''' <param name="sender"></param>
7 ''' <param name="e"></param>
8 Private Sub frmA_Load(sender As Object, e As EventArgs) Handles MyBase.Load
9
10 ' コード指定がない場合は001にする
11 If tbxCode.Text.Length < 1 Then
12 tbxCode.Text = "001"
13 End If
14
15 End Sub
16
17 ''' <summary>
18 ''' B画面表示
19 ''' </summary>
20 ''' <param name="sender"></param>
21 ''' <param name="e"></param>
22 Private Sub btnFormB_Click(sender As Object, e As EventArgs) Handles btnFormB.Click
23
24 ' B画面用変数
25 Dim frmBScr As frmB
26
27 ' B画面インスタンス生成
28 frmBScr = New frmB
29
30 ' B画面表示
31 frmBScr.Show()
32
33 End Sub
34
35End Class
VB.net
1Public Class frmB
2
3 ''' <summary>
4 ''' フォーム起動
5 ''' </summary>
6 ''' <param name="sender"></param>
7 ''' <param name="e"></param>
8 Private Sub frmB_Load(sender As Object, e As EventArgs) Handles MyBase.Load
9
10 ' B画面のコードをデフォルト100とする
11 tbxCode.Text = "100"
12
13 End Sub
14
15 ''' <summary>
16 ''' A画面表示
17 ''' </summary>
18 ''' <param name="sender"></param>
19 ''' <param name="e"></param>
20 Private Sub btnFormA_Click(sender As Object, e As EventArgs) Handles btnFormA.Click
21
22 ' A画面用変数
23 Dim frmAScr As frmA
24
25 ' A画面インスタンス生成
26 frmAScr = New frmA()
27
28 'A画面にB画面のコードを渡す
29 frmAScr.tbxCode.Text = tbxCode.Text
30
31 ' A画面表示
32 frmAScr.Show()
33
34 End Sub
35
36End Class
細かいエラー処理は無視しています。
質問の内容から、画面が表示できてコードが判別できればいい程度でよさげなので、最低限できるようなコードです。
(前の画面は表示されたままですし、触ることもできるのでがんがん画面を生成できます)