Probaj da dodas u kod prve forme ovako nesto:
Code:
Private F As Form2 = Nothing
Private Sub cmdTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdTest.Click
If IsNothing(Me.F) Then
Me.F = New Form2
End If
Me.F.Show()
End Sub
A u kodu druge forme ovako nesto:
Code:
Private Sub Form2_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
e.Cancel = True
Me.Hide()
End Sub