Public Class frmMain 'Hauptformular
 
'Diverse Anweisungen
 
Dim frmUser As New frmLoginPWD
                    frmUser.ShowDialog()
                   PASSWORT  = frmUser.Pwd
                   frmUser.Dispose()
End Class
 
'Direkt hier drunter habe ich die neue Klasse angegeben
 
Public Class frmLoginPWD
    Inherits frmLogin  
 
    Public Property Pwd() As String
        Get
            Return txtPasswort.Text
        End Get
        Set(ByVal Value As String)
            txtPasswort.Text = Value
        End Set
    End Property
 
End Class