Private Sub Öffnen()
        Me.Cursor = Cursors.WaitCursor
        TSProgressBar.Visible = True
        TSLblInfo.Text = "Es wird gearbeitet..."
 
        Dim doc As PDMWorks.PDMWDocument
        doc = Connection.GetSpecificDocument("c:\Test.slddrw")
 
        'Als Datei Speichern
        Try
            doc.Save(Path.Combine(TempVerz, ProgName))
        Catch ex As Exception
            'MsgBox(ex.Message)
        End Try
 
        '.....
    End Sub

Public Class Dateioperationen
    Public Shared Sub Öffnen
        Form1.Cursor = Cursors.WaitCursor
        Form1.TSProgressBar.Visible = True
        Form1.TSLblInfo.Text = "Es wird gearbeitet..."
 
        Dim doc As PDMWorks.PDMWDocument
        doc = Form1.Connection.GetSpecificDocument("c:\Test.slddrw")
 
        'Als Datei Speichern
        Try
            doc.Save(Path.Combine(Form1.TempVerz, Form1.ProgName))
        Catch ex As Exception
            'MsgBox(ex.Message)
        End Try
 
        '.....
    End Sub

Public Shared Sub Öffnen(ByVal TempVerz As String, ByVal ProgName As String, _
  ByVal Dokument As PDMWorks.PDMWDocument, ...)