Hallo,

ich versuche eine LisBox in einem Access Formular vorzuselektieren:

<pre>
Private Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hWnd As Long, ByVal wMsg _
As Long, ByVal wParam As Long, ByVal lParam As _
Long) As Long

Private Declare Function GetFocus Lib "user32" _
() As Long

Const LB_SETCURSEL = &H186

Private Sub Befehl54_Click()
Dim hWnd As Long
Me.ExplorerView.SetFocus
hWnd = GetFocus
SendMessage hWnd, LB_SETCURSEL, 5, 0&
End Sub
</pre>

Er tut´s aber nicht!
Hat jemand eine Idee warum?

Grüße!

Wieso so kompliziert? Mach doch einfach:

List1.ListIndex = 0