'read content of tmp-Directory
                Call ScanDirectory(strPath, "tmp")
                Measurements.pbMeasure_Diagramm.Image.Dispose()
                'Delete all MeasureDiagramms
                For i = 0 To strFileNames.GetUpperBound(0)
                    If strFileNames(i).StartsWith("BitMap_") = True Then
                        Try
                            File.Delete(strPath & strFileNames(i))
                        Catch ex As Exception
                            MsgBox(ex.Message)
                        End Try
 
                    End If
 
                Next