quote:

---

MOUSEBENDER:
Ah, how about Cheddar?

WENSLEYDALE:
Well, we don't get much call for it around here, sir.

MOUSEBENDER:
Not much ca- It's the single most popular cheese in the world!

---

Imports System.Windows.Forms
Imports System.Threading

    Sub MyCopy()
        Dim plainCopyThreadObject As PlainCopy
        Dim plainCopyThread As System.Threading.Thread

        plainCopyThreadObject = New PlainCopy
        plainCopyThreadObject.Selection = DTE.ActiveDocument.Selection.Text()

        plainCopyThread = New System.Threading.Thread(AddressOf plainCopyThreadObject.PlainCopyMethod)

        plainCopyThread.Start()

        plainCopyThread.Join()

    End Sub
    Class PlainCopy

        <STAThread()> Sub PlainCopyMethod()
            Try

                Clipboard.SetDataObject(Me.copySelection, True)

            Catch ex As Exception

            End Try
        End Sub

        Public Property Selection() As String
            Get
                Selection = Me.copySelection
            End Get
            Set(ByVal Value As String)
                Me.copySelection = Value
            End Set
        End Property

        Private copySelection As String

    End Class