Private Sub Timer_Speichern_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer_Speichern.Tick
 
        But_Stammdaten_zurück.Visible = False
        But_Stammdaten_Hauptauswahl.Visible = False
        Pro_Speichert.Visible = True
 
        If Me.Pro_Speichert.Value < 20 Then
            Me.Pro_Speichert.Value += 1
        Else
            Me.Cursor() = System.Windows.Forms.Cursors.WaitCursor
            Timer_Speichern.Enabled = False
            Pro_Speichert.Visible = False
            Pro_Speichert.Value = 0
            But_Stammdaten_zurück.Visible = True
            But_Stammdaten_Hauptauswahl.Visible = True
            'MsgBox(Speichermessage)
            Me.Cursor() = Cursors.Default
        End If
    End Sub