Public Class Hauptform
 
    Private m_Datenpfad as string 
    Public ReadOnly Property Datenpfad
        Get
            Return m_DatenPfad
        End Get
    End Property
 
    .... in der InitFunction wo Du den pfad ermittelst
    m_datenpfad = DerPfadDenDuErmitteltHast
    ....
 
    ' weitergabe an die anderen formulare
    Dim frm as new Unterformular(me)
 
End Class
 
Public Class UnterFormular
    Private m_Hauptformular as Hauptformular
    Private m_DatenPfad as string 
    Public Sub New(frm as Hauptformular)
        m_Hauptformular = frm
        m_Datenpfad = m_Hauptformular.DatenPfad
    End Sub
End Class

Public Class Hauptform
 
    Private m_Datenpfad as string 
    Public sharedReadOnly Property Datenpfad
        Get
            Return m_DatenPfad
        End Get
    End Property
 
    .... in der InitFunction wo Du den pfad ermittelst
    m_datenpfad = DerPfadDenDuErmitteltHast
    ....
 
End Class
 
Public Class UnterFormular
    Private m_Datenpfad
 
    Public Sub New()
        m_Datenpfad = Hauptformular.Datenpfad ' statische variablen können ohne 
        ' eine aktuelle instanz einer klasse abgefragt werden
    End sub
End Class

Public Class ApplicationStartUpInfos
    Private m_datenpfad as string
    Public shared Readonly Datenpfad
        Get
            return m_Datenpfad 
         End Get
    End Property
 
    Public Shared Sub Init(Datenpfad as string)
        m_Datenpfad = Datenpfad
    End sub
End Class
 
Public Class Hauptform
 
    ' in der InitFunktion
    ApplicationStartUpInfos.Init(DerPfadDenDuErmitteltHast)
 
End Class
 
Public Class Unterformular
    Private m_Datenpfad as string 
 
    Public Sub New()
        m_Datenpfad = ApplicationStartUpInfos.Datenpfad
    End Sub
End Class