Imports System.Windows.Forms
Public Class LoginForm
  Inherits System.Windows.Forms.Form
.
.
'Init und soein Kram.
 
  Public Property UserName() As String
    Get
      Return TextBox1.Text
    End Get
    Set(ByVal value As String)
      TextBox1.Text = value
    End Set
  End Property
  Public ReadOnly Property Password() As String
    Get
      Return TextBox2.Text
    End Get
    Set(ByVal value As String)
      TextBox2.Text = value
    End Set
  End Property

Private Sub LoginWithForm  
  Dim myLogin As New LoginForm()
  MyLogin.UserName = LetzerUserName
  ' Password lassen wir leer!!
  if( myLogin.ShowDialog() = DialogResult.OK )
    MeineUserVariable = MyLogin.UserName
    MeinePwVariable = MyLogin.Password
    MachwasBeiLogin()
  End If
  myLogin.Dispose()
End Sub