Private Sub tmrMemoOptimize_Timer()
Dim Phys As Long
  Dim NeuPhys As Long
  Dim Frei As Long
 
  ' Genau so viel Speicher Freiräumen wie auf dem Slider in Hauptform 
  ' eingestellt wurde
  If ManuellOptimize = True Then
        Phys = frmOptimizeRam.sldSpeichermenge.Value * 1024 * 50
  ElseIf AutoOptimize = True Then
        Phys = frmOptimizeRam.txtAutoOptimizeAuf.Text * 1024 * 50
  End If
 
  ' Screen.MousePointer = vbHourglass
 
  ReDim at(20) As String
  Dim i As Integer
 
  For i = 0 To 20
 
    OptimizeRamBar.Value = i
    at(i) = Space$(Phys)        ' Speicher aufblähen
    DoEvents
    lblProzentstatus.Caption = CStr(i / 20 * 100) & "%"
    ' Aktualisiert ToolTip im Tray
    TIcon.szTip = App.ProductName & " " & App.Title & vbCrLf & _
                 "Speicher wird optimiert... (" & CStr(i / 20 * 100) & "%)"
 
    If CStr(i / 20 * 100) >= 0 And CStr(i / 20 * 100) < 20 Then TIcon.hIcon _
      = frmOptimizeRam.imgLstIcons.ListImages.Item(11).Picture: _
      Shell_NotifyIcon NIM_MODIFY, TIcon
    If CStr(i / 20 * 100) > 20 And CStr(i / 20 * 100) < 40 Then TIcon.hIcon _
    = frmOptimizeRam.imgLstIcons.ListImages.Item(12).Picture: Shell_NotifyIcon _
    NIM_MODIFY, TIcon
    If CStr(i / 20 * 100) > 40 And CStr(i / 20 * 100) < 60 Then TIcon.hIcon _
    = frmOptimizeRam.imgLstIcons.ListImages.Item(13).Picture: Shell_NotifyIcon _
    NIM_MODIFY, TIcon
    If CStr(i / 20 * 100) > 60 And CStr(i / 20 * 100) < 80 Then TIcon.hIcon _
    = frmOptimizeRam.imgLstIcons.ListImages.Item(14).Picture: Shell_NotifyIcon _
    NIM_MODIFY, TIcon
    If CStr(i / 20 * 100) > 80 And CStr(i / 20 * 100) <= 100 Then _
    TIcon.hIcon = frmOptimizeRam.imgLstIcons.ListImages.Item(15).Picture: _
    Shell_NotifyIcon NIM_MODIFY, TIcon
 
    If OptimizeInBackMode = True Then
        Me.Visible = False
        Me.Hide
    End If
 
  Next i
  ' Screen.MousePointer = 0
  Unload Me
End Sub