Om jag vill kolla så att ett formulär verkligen är Unloadat innan jag går vidare och visar nästa formulär. Hur gör jag då
Det verkar inte fungera med denna kod

if form1 is Nothing then
form2.show
end if

Är det någon som har en lösning.

<code>
Public Function IsFormLoaded(Form As Form) As Boolean
On Error Resume Next
Dim loadedForm As Form
For Each loadedForm In Forms
If Form Is loadedForm Then IsFormLoaded = True
Next
End Function
</code>

/Micke

tack funkade utmärkt

Lite optimering:
<code>
Public Function IsFormLoaded(Form As Form) As Boolean
Dim loadedForm As Form
For Each loadedForm In Forms
If Form Is loadedForm Then
IsFormLoaded = True
Exit For
End If
Next
End Function
</code>