Set Calling FORM Visible = False by CALLED FORM

[lenniekuah]

Hi Good Guys,
I have an interesting problem and I need your help.
Please Help me.

Requested were made by Businese Analyst to set the few Main FORMs VISIBLE PROPERTY TO FALSE when the POPUP FORM is loaded.

 MAIN FORM NAME                  POPUP FORM 
FRMSALES                         FRMPOPUPCUSTOMER
FRMTRANS                         FRMPOPUPCUSTOMER
FRMSHIPPER                       FRMPOPUPCUSTOMER
FRMINVOICE                       FRMPOPUPCUSTOMER
 

When the MAIN FORM loads the POPUP FORM,
on the FRMPOPUPCUSTOMER-FORMLOAD even, it has to set the MAIN FORM Visible to False.

When FRMPOPUPCUSTOMER FORM IS UNLOAD it has to set the MAIN FORM Visible = TRUE.

How to the coding is to ensure that different MAIN FORM when loaded FRMPOPUPCUSTOMER it will turn the MAIN FORM Visible to FALSE.

[dip_developer]

Dim popupform As New PopupForm()
popupform.Show
me.Hide()

[lenniekuah]

Hullo Good Guys,
Thanks to all of you for your share of sample codings with me. I have modify to suit my application and environment. It's now Working very well.

Here are the coding that I want to share with other Newbies who may have similar problems and need helps.

 
'This FORM called FrmCustMaint
Option Explicit On
 
Public Class FrmMain
 
Private Sub btnCustomer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCustomer.Click
 
        Dim FM As New FrmCustMaint
        Dim callFrm As System.Windows.Forms.Form = Me
 
        FM.PropCallForm = callFrm
        FM.ShowDialog()
        FM = Nothing
 End Sub
End class
 
---------------------------------------------------
Option Explicit On
 
Public Class FrmCustMaint
 
    Private FrmCall As System.Windows.Forms.Form
 
 Private Sub FrmCustMaint_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
        Handles MyBase.Load   
        FrmCall.Visible = False
End sub
 
 Public Property PropCallForm()
        Get
            Return FrmCall
        End Get
        Set(ByVal value)
            FrmCall = value
        End Set
  End Property
End Class