Salve a tutti. Volevo chiedere qualche consiglio circa la form di login. vi spiego la situazione:
Il mio programma si avvia attraverso la seguente sub Main

Public Class cls_Main
Private Shared m As Threading.Mutex
Public Shared Sub Main(ByVal arg() As String)
Dim first As Boolean m = New Threading.Mutex(True, Application.ProductName, first)
If (first) Then m.ReleaseMutex()
Application.Run(Form1)
Else Application.Exit()
End If 
End Sub
End Class

dopo e mi apre la form1 che sarebbe la form di login.
dopo aver inserito nome e password se sono verificati mi apre la mdiform del programma in questo modo.

Dim MDI As New MDITest(TextBox1.Text)
MDI.Show()

Ma la mia domanda è come posso chiudere la form di login (form1) ora che non mi serve più?

Sto impazzendo e non ho capito come chiudere la form1 e lasciare che il programma continui.

Avete qualche indicazione da darmi in merito?
Grazie per il vostro aiuto.

Ho scritto la stessa cosa sull'altro Forum...ieri.

Quindi nella form di login dovre scrivere una riga di codice del genere (vado a memoria)

dialogresult= ok

?? Questo mi chiude la form di login e mi prosegue il programma con il resto del codice presente nel main??

Grazie

no. Aprendo la Form con il ShowDialog, nel Button che controlla la pass o altro ci metti:
If LoggeUser.Pass = TxtPass.Text Then
DialogResult = Windows.Forms.DialogResult.OK
Else
....Pass sbagliata....

Quindi comunque la form di login rimane aperta per tutta l'esecuzione del programma?

no. Con il DialogResult.Ok la form viene chiusa...diventa simile al classico MessageBox.
vedi l'help di DialogResult.

E poi per passarmi il codice dell'utente in tutto il programma che faccio mi creo una variabile globale all'interno di una classe statica?

Ok vi ringrazio ho risolto in modo molto semplice (anche se non so se è quello più congeniale) ho utilizzato una property per farmi passare il codice dell'utente che si è connesso in questo modo

All'interno del from di login ho inserito questo codice

Public Class LogIn

Private SHContext As SHEntities
Dim clsCodifica As New cls_Codifica
Dim int_Temtativi As Integer = 0

Dim _Utente As String = ""


Friend ReadOnly Property Utente() As String
Get
Return _Utente
End Get
End Property

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SHContext = New SHEntities
Dim query As ObjectQuery(Of Dipendenti) = _
SHContext.Dipendenti.Where("it.CodiceInterno=@ID and it.Password=@PWD", New ObjectParameter("ID", TextBox1.Text), New ObjectParameter("PWD", clsCodifica.getMD5Hash(TextBox2.Text)))
If query.Count = 0 Then
DialogResult = Windows.Forms.DialogResult.Cancel
Else
_Utente = TextBox1.Text
DialogResult = Windows.Forms.DialogResult.OK
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
Global.System.Windows.Forms.Application.Exit()
End Sub

End Class

Mentre nella classe main ho inseirto questo codice

Dim frm As New Form1
frm.ShowDialog()
If frm.DialogResult = DialogResult.OK Then
Application.Run(New MDITest(frm.Utente))
Else
MsgBox("SBagliato accesso negato")
End If


Vi ringrazio per il vostro aiuto. Non si smette mai di imparare. Pensate che dopo tutte le cose che ho fatto e tutti i programmi creati non ero a conoscenza (o forse lo ignoravo inconsciamente) del completo funzionamento del metodo showdialog e del fatto che potesse passare un resultdialog.

Grazie di tutto.
Ho postato il codice per intero nel caso potesse servire a qualcuno in futuro.