Private Sub roLstMails_OnImageClick(ByVal nRow As Long, ByVal nCol As Long, _
  nImage As Long, Button As Integer, Shift As Integer)
 
    nImage = nImage + 1
    If nImage > 5 Then nImage = 1
 
    Button = 0
 
End Sub

   With roLstMails.ListItems(nRow)
 
        Select Case nImage
 
            Case 1:
 
                .CellToolTipText(1) = "Ungelesen"
 
            Case 2:
 
                .CellToolTipText(1) = "Gelesen"
 
            Case 3: 'reserviert
 
            Case 4:
 
                .CellToolTipText(1) = "Beantwortet"
 
            Case 5:
 
                .CellToolTipText(1) = "Weitergeleitet"
 
        End Select
 
    End With