Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As Integer)
Dim Imagename As String
Dim fs
Dim a As Boolean
a = True
Set fs = CreateObject("Scripting.FileSystemObject")
Call SetOptions' setzt tgPathBitmap --> Pfad zu den gifs und tgPlaceHolder 
' --> Platzhalter-gif
Imagename = tgPathBitmap & "SHAPE" & Me.SSARNR & ".gif"
'prüfen, ob richtiges gif vorhanden
a = fs.FileExists(Imagename)
If a = True Then Me.shape_gif.Picture = Imagename Else Me.shape_gif.Picture = _
  tgPlaceHolder
Set fs = Nothing
End Sub