Public Enum LB As UInteger
        SETSEL = &H185
        GETSELITEMS = &H191
        GETSELITEMCOUNT = &H190
        GETCURSEL = &H188
        SELECTSTRING = &H18C
        SETCURSEL = &H186
        FINDSTRING = &H18F
        GETITEMCOUNT = &H18B
        GETSEL = &H187
        GETTEXT = &H189
        RESETCONTENT = &H184
        GETTEXTLEN = &H18A
    End Enum
 
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Shared Function FindWindow( _
     ByVal lpClassName As String, _
     ByVal lpWindowName As String) As IntPtr
    End Function
 
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As _
    UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
    End Function
 
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As _
    UInteger, ByVal wParam As IntPtr, ByVal lParam As String) As IntPtr
    End Function
 
    Private Sub GetListItem()
        Dim textlen, itemCount, selIndex As Integer
        Dim itemText As String
 
        Dim hWin As IntPtr = ListBox1.Handle
 
        itemCount = SendMessage(hWin, LB.GETITEMCOUNT, IntPtr.Zero, IntPtr.Zero)
 
        selIndex = SendMessage(hWin, LB.GETCURSEL, IntPtr.Zero, IntPtr.Zero)
        itemText = New String(Chr(0), 100)
        textlen = SendMessage(hWin, LB.GETTEXT, New IntPtr(selIndex), itemText)
        itemText = itemText.Substring(0, textlen)
        MsgBox(itemText)
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist