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

Module Clipboard1

    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

    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

    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