Private Sub UserForm_Activate()
   'Erzeugt eine kleine Animation im Anmeldefenster
   Dim i As Integer
   Hand.Top = Pwd.Height
   Hand.Visible = True
   Do While Hand.Top > -8
      DoEvents
      Hand.Top = Hand.Top - 1
   Loop
   Anmeldung.Visible = True
   Do While Anmeldung.Top < 0
      DoEvents
      Anmeldung.Top = Anmeldung.Top + 1
      Hand.Top = Hand.Top + 1
   Loop
   Benutzername.SetFocus
End Sub