'Zuerst werden pauschal alle Label mit einem Standart-ToolTp versehen...
  .ControlRemove frmKarte.lblKFZ(i)
  'Voreinstellung: ToolTip-Text für Fahrzeug in Status 2 anzeigen
  .ControlAdd frmKarte.lblKFZ(i), arToolTip(i).strFunkruf + " - " + arToolTip( _
    i).strTyp + " " + arToolTip(i).strStandort + " - Status: Ein 2" + _
  vbCrLf + vbCrLf + "Einsatz : Zur Zeit an keinen Einsatz gebunden" + _
  vbCrLf + "Standort: RW " + arToolTip(i).strStandort
  .BackColor = &HDCD8CF
 
'Dann werden je nach Wert des "Status" die ToolTips neu gesetzt...
Select Case Status
Case "1"
   .ToColor = &H36CA26
   sevQI.ControlRemove frmKarte.lblKFZ(i)
   sevQI.ControlAdd frmKarte.lblKFZ(i), arToolTip(i).strFunkruf + " - " + _
     arToolTip(i).strTyp + " " + arToolTip(i).strStandort + " - Status: EF 1" + _
   vbCrLf + vbCrLf + "Einsatz : " + arToolTip(i).strStichwort + " in " + _
   arToolTip(i).strOrt + ", " + arToolTip(i).strGemeinde + _
   vbCrLf + "Standort: " + "--> RW " + arToolTip(i).strStandort
   sevQI.BackColor = &HDCD8CF
End Select