先建一个类
Module Module1
Public Sub Main()
Form1.Itself.Show()
Application.Run()
End Sub
End Module
在每个窗体加入
Private Shared _Itself As Form1
Public Shared ReadOnly Property Itself() As Form1
Get
If _Itself Is Nothing OrElse _Itself.IsDisposed Then
_Itself = New Form1
End If
Return _Itself
End Get
End Property
在事件中加入
dd.Itself.Show()
'Me.Close()
dd.Itself.TextBox1.Text = "ddd"
试试吧