Visual Basic

<br />
  Public Sub ShowConfig(ByRef ConfigObj As Object)<br />
<br />
    ' ShowConfig() function inside my plugin takes in 1 argument, <br />
    ' the reference to an (config) 'object'<br />
<br />
    ' Create args array for the invoke() function, <br />
    ' containing our reference<br />
    Dim args = New Object() {ConfigObj}<br />
<br />
    ' display the Config window <br />
    ' wait for it to close <br />
    pShowConfig.Invoke(tsInterfaceObj, args)<br />
<br />
    ' all done. ConfigObj now points to something interesting<br />
 <br />
    ' actually we're not, args(0) contains the object <br />
    ' we want, not ConfigObj. Therefore make sure<br />
    ' ConfigObj is the correct reference is given back<br />
    ConfigObj = args(0)<br />
<br />
    ' Mmm, this now works!<br />
<br />
 End Sub<br />

Public Class Class1
    Implements IDisposable
    Private Shared myInst As Class1
    Private Shared myMutex As New System.Threading.Mutex
    Public Shared myVal As Integer
    Private Shadows disposed As Boolean

    Public Shared Function GetInstance() As Class1
        myMutex.WaitOne()
        If myInst Is Nothing Then
            myInst = New Class1
        End If
        myMutex.ReleaseMutex()
        myInst.myVal += 1
        Return myInst
    End Function

    Public Sub Dispose() Implements IDisposable.Dispose
        If Not disposed Then
            disposed = True
            GC.SuppressFinalize(Me)
        End If
    End Sub

    Public Shared Sub DisposeIt(ByVal Cls1 As Class1)
        Cls1.Dispose()
    End Sub

End Class

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As   System.EventArgs) Handles MyBase.Load
    Dim myclass1 As Class1 = Class1.GetInstance
    Class1.DisposeIt(myclass1)
    Response.Write(myclass1.myVal)
End Sub