Opening Forms.

[Shawn]

I have an application that starts with a Module (Sub Main) that calls a few forms in order. When I close the next to last form, the last form is called and closes immediately. I have application.run (me) in the load event for that form and it opens fine if I call it at the beginning of the module. Here is the module code....

Module mdlLogon
Sub main()
Dim OpenFrmDbConnec t As New FrmDBConnect()
OpenFrmDbConnec t.Show()

If Form1.ds = Nothing Then
Dim Result As DialogResult
Result = MessageBox.Show ("You must setup the database connections, Click Ok to do so or Cancel to quit the program.", "Initial Setup",
MessageBoxButto ns.OKCancel, _MessageBoxIcon .Exclamation, MessageBoxDefau ltButton.Button 1, MessageBoxOptio ns.ServiceNotif ication)

If Result = DialogResult.OK Then
Dim OpenFrmSetup As New FrmSetup()
OpenFrmSetup.Sh ow()

ElseIf Result = DialogResult.Ca ncel Then
Exit Sub
End If
End If

Dim OpenFrmLogon As New FrmLogon()
OpenFrmLogon.Sh ow()

' This is the call that dies below..

Dim OpenForm1 As New Form1()
OpenForm1.Show( )

End Sub
End Module

This is driving me crazy!! Please someone help!!!!

[Cor Ligthert]

Shawn,

I thought about starting the Form1 and setting the opacity to 0 while the
login for runs, but it is a bit sloppy to me.

Why as long as you do not tell Form1.show somewhere it will not be showed.

Cor

[Cor Ligthert]

>>

Why as long as you do not tell Form1.show somewhere it will not be showed.

Or it should be your main form in the way I do it, than it will be showed
directly after that the Load event is processed.

Cor

[Shawn]

Well, I took your advice and started it from Form1. I set the opacity to 0
so it would not show and set a shared variable that changes from 0 to 1 when
the logon box is gone. I then set a timer to run and check that variable
after the other forms close. If the variable is 1, then the opacity is set
to 100 and the form shows. This is not as clean as I was hoping, but it
works fine.

Thanks for all the insight guys!!!

Shawn

"Cor Ligthert" <no************ @planet.nl> wrote in message
news:uk******** ******@TK2MSFTN GP10.phx.gbl...

Why as long as you do not tell Form1.show somewhere it will not be showed.

Or it should be your main form in the way I do it, than it will be showed
directly after that the Load event is processed.

Cor

[Cor Ligthert]

Shawn,

That opacity setting should not be needed. I really do only

Private sub load form
dim frm as new loginform
'
'
me.close when wrong.
end sub

The main form is never showed.

Cor