Public Class Form126
Dim frm1 As Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'加载窗体
frm1.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'離開
Process.GetCurrentProcess().Kill()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'卸载窗体
Me.Close()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
'確認窗体是否已開啟
If frm1 Is Nothing OrElse frm1.IsDisposed Then
frm1 = New Form1
frm1.Show()
Else
frm1.Activate()
End If
'窗体間傳值
frm1.TextBox1.Text = Me.TextBox1.Text
End Sub
End Class