Module MapV Private m_refSplashScreenV As SplashScreenV Private m_refPDFEditorV As PDFEditorV #Region "Get" Public ReadOnly Property refSplashScreenV As SplashScreenV Get Return m_refSplashScreenV End Get End Property Public ReadOnly Property refPDFEditorV As PDFEditorV Get Return m_refPDFEditorV End Get End Property #End Region ' Get #Region "Set" Friend Function SetRefSplashScreenV(SplashScreenV As SplashScreenV) As Boolean m_refSplashScreenV = SplashScreenV Return Not IsNothing(m_refSplashScreenV) End Function Friend Function SetRefPDFEditorV(PDFEditorV As PDFEditorV) As Boolean m_refPDFEditorV = PDFEditorV Return Not IsNothing(m_refPDFEditorV) End Function #End Region ' Set End Module