Option Explicit
Dim oResize         As clsResize
 
...
 
Private Sub Form_Load()
    DisableCloseWindowButton Me
 
    Set oResize = New clsResize
    oResize.oForm = Me
    oResize.Initialize
 
 
    Me.KeyPreview = True
    sevUser = ""
    sevKennwort = ""
    AnmeldeStatus = "Exit"
    CryptZähler = 0
    CheckPasswort = "Nein"
 
    aRs_Close
    sSQL = "SELECT * FROM tblsystem"
    aRs.CursorLocation = adUseClient
    aRs.Open sSQL, oConn, adOpenForwardOnly, adLockOptimistic
    aRsOpen = True
    If aRs.RecordCount > 0 Then
       CheckPasswort = aRs!SysPassword
    End If
    If CheckPasswort <> "Ja" Then
       sevLabel1.Visible = False
       sevKennwort.Visible = False
    End If
End Sub
 
Private Sub Form_Resize()
    If Me.WindowState <> vbMinimized Then
       oResize.DoResize
    End If
End Sub