close form i vb .net

Hvordan kan man lukke den form som loaded ved startup. Hvis man f.eks. har en password form og man ønsker at lukke denne form hvis brugeren har skrevet korrekt info. Hvis jeg bruger me.close() lukker den hele app. her er noget af koden:

If txtUserInput.Text = "test" And txtPasswordInput.Text = "test" Then
Dim form1 As New frmMainMenu()


Me.Close()
form1.Show()

Else
Dim message As String
message = "Brugernavn eller Kodeord er forkert, Prøv igen."

Dim result As DialogResult

result = MessageBox.Show(Me, message, "Validering", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If

Prøv med:
<pre>Unolad Me</pre> i stedet for <pre>Me.Colse</pre>

Det virker i VB

:hot: I Am The Cyborg :hot:

Det virker ikke unload kan man ikke bruge i .net og me.close er det jeg gør.

Jeg er ikke sikker, men kan du ikke gøre som følger:

PS: VB6 Termer...

frmMain er programmet som skal åbnes efter du har logget ind!
frmLogin er login boksen!

Private Sub cmdLogin_click()
If login = "test" and login = "test" then
frmMain.show
endif
end sub

Og når frmMain så loader, bruge:

Private Sub Form_Load()
unload frmLogin
end sub

If you don't succeed, redefine success...

Hvordan kan man lukke den form som loaded ved startup. Hvis man f.eks. har en password form og man ønsker at lukke denne form hvis brugeren har skrevet korrekt info. Hvis jeg bruger me.close() lukker den hele app. her er noget af koden:

If txtUserInput.Text = "test" And txtPasswordInput.Text = "test" Then
Dim form1 As New frmMainMenu()


Me.Close()
form1.Show()

Else
Dim message As String
message = "Brugernavn eller Kodeord er forkert, Prøv igen."

Dim result As DialogResult

result = MessageBox.Show(Me, message, "Validering", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If

JT
Hvis du ikke ønsker at bruge Api prøv at kig ind på denne side

http://www.allapi.net/apilist/apilist.php?dotnetonly=yes&showinfo=yes




private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

private sub command1_click ()
dim responce as long
responce = CloseProg("Mitprogram") 'husk at ændre her til navnet på dit vindue Form.caption
end sub

private Function CloseProg(STitle As String) As Long
Dim IhWnd As Long
Dim ihTask As Long
Dim iReturn As Long
Dim x As Integer
IhWnd = FindWindow(0&, STitle)
iReturn = PostMessage(IhWnd, WM_CLOSE, 0&, 0&)
End Function

' Husk det er titlen på vinduet og ikke filnavnet og læg eveventuelt rutinen i et modul og kald
' den fra den næste form som starter