Public Class DocNameSingleTon
    ' Variable zur Speicherung der einzigen Instanz
    Private Shared instance As DocNameSingleTon = Nothing
 
    ' Hilfsvariable für eine sichere Threadsynchronisierung.
    Private Shared ReadOnly mylock As New Object()
 
    ' Konstruktor ist privat, damit die Klasse nur aus sich selbst heraus 
    ' instanziiert werden kann.
    Private Sub New()
        '
    End Sub
 
    ' Diese Shared-Methode liefert die einzige Instanz der Klasse zurück.
    Public Shared Function GetInstance() As DocNameSingleTon
        'SyncLock (mylock)
        If instance Is Nothing Then
            instance = New DocNameSingleTon
        End If
        'End SyncLock
 
        Return instance
 
    End Function
 
    Public Function DocName() As String
 
        Dim Top_Process As Process()                        'Array für die 
        ' gefunden Prozesse mit top612 im Namen
 
        Top_Process = Process.GetProcessesByName("top612")           'Suche 
        ' nach offenen TopSolid Anwendungen
 
        Try
            SyncLock (mylock)
                If UBound(Top_Process) > -1 Then
 
                    Dim TopApp As TopSolid.Application
                    TopApp = New TopSolid.Application
 
                    If TopApp.Documents.Count > 0 Then
 
                        Return TopApp.CurrentDocument.Name
 
                    Else
                        Return "keine Datei geöffnet"
                    End If
                Else
                    Return "TopSolid nicht gestartet"
                End If
            End SyncLock
        Catch ex As Exception
            Return "Error"
        End Try
 
    End Function                                                     'Ermittelt 
    ' den Dokumentnamen der gerade geöffnet ist
End Class  ' Threadsichere Klasse für Funktion DocName

Grüße Andi