Nota : O Módulo não pode chamar-se clipboard porque clipboard é uma palavra reservada no .NET.

O clipboard é uma mão na roda em muitas aplicações. Por exemplo, eu tenho uma app que cola o texto do clipboard, vai no google translator, traduz de inglês para português e o retorno cola no clipboard novamente. Com isso ficou muito pratico trauzir um texto.

Module Clipboard1

Pega texto do Clipboard

    Public Function PegaTextoClipboard()
        If My.Computer.Clipboard.ContainsText Then
            Return My.Computer.Clipboard.GetText
        Else
            MsgBox("O clipboard não tem texto")
        End If
        Return Nothing
    End Function

Pega imagem do Clipboard

    Public Function PegaImagemClipboard() As Image
        If My.Computer.Clipboard.ContainsImage Then
            Return My.Computer.Clipboard.GetImage
        Else
            MsgBox("O clipboard não tem imagem")
        End If
        Return Nothing
    End Function

Copia o texto de um listbox e coloca no Clipboard

    Public Sub CopiarTextoListBoxParaClipBoard()
        Dim a As Integer
        Dim b As String
        Dim c As New ListBox

        b = ""
        c.Items.Clear()
        'For a = 0 To ListBox1.Items.Count - 1
        For a = 0 To c.Items.Count - 1
            'ListBox1.SelectedIndex = a
            c.SelectedIndex = a
            'b = b + ListBox1.Text + vbCrLf
            b = b + c.Text + vbCrLf
        Next
        Clipboard.SetText(b)
    End Sub
End Module