Imports System

Imports System.Drawing

Imports System.Collections.Generic

Imports Microsoft.VisualBasic

Imports System.IO

Imports System.Runtime.InteropServices

​

Public Module Module1

    Private HandleMap As Dictionary(Of Integer, Object)

    Public Function GetInstance(Handle As Integer) As Object

        Dim Instance As Object = Nothing

        Instance = HandleMap(Handle)

        Return Instance

    End Function

    Public Sub Main()

        Dim doc as Object = Nothing

        doc = GetInstance(1).ActiveDocument

    End Sub

End Module