Ever want to check to see if a form is loaded before you try to access it?

 The only way I know of (other than this way) is to loop through the form collection... 
 a rather large pain in the rear.

 The trick is to create a new form property. 

 

 Add the following code to any form:

 
 

 

  Option Explicit

  

  ' Create a new property variable

  Dim m_bLoaded 
  As Boolean

  ' get the value of the new property

  Public Property Get Loaded() 
  As Boolean

 

 
  

 Loaded = m_bLoaded

 

 

 End Property

 

 ' set the value of the new property

  Public Property Let Loaded(ByVal 
  bLoaded As Boolean)

 

 
  

 m_bLoaded = bLoaded

 

 

 End Property

 

  Private Sub Form_Load()

 

 
  

 ' set the loaded property to true

   Me.Loaded = True

 

 

 End Sub

 

Private Sub Form_Unload(Cancel 
  As Integer)

 

 
  

 ' set the loaded property to false

   Me.Loaded = False

 

 

 End Sub 

Now, form any other form or module, you can do this (assume you are using the 
 default form name)

If Form1.Loaded = True Then

 

 MsgBox "Form is loaded"

 Else

 

 MsgBox "Form is not loaded"

 End If

 Accessing this property will not cause the form to load in the event that loaded 
 is false.

 However, if you make a single variable and make it public on the form, and try 
 to access it, the form will load.

 You can actually use this property method to retain any data and access it without 
 reloading hte form.

 I created a custom input box field in which the "Return String" is 
 a custom property, like the loaded property.

 then I just do this:

 

 Form1.show 1, me ' (show my new form 
  modal)

  strInput = Form1.strInput '(this 
  will not cause the form to reload provided your property is called strInput!)

give it a shot, let me know if you have any problems.