Private WithEvents fChild As FrmChild
 
		Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
			If fChild Is Nothing Then
				fChild = New FrmChild
				fChild.Owner = Me
				Me.Enabled = False
				fChild.Show()
			End If
		End Sub
 
		Private Sub fChild_Closed(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles fChild.Closed
			Me.Enabled = True
			fChild = Nothing
		End Sub