Anvende jokertegn ved søgning i listindex?

Prøv:

\'------------------------------------ Form1 ------------------------------------
Private Declare Function SendMessage Lib \"user32\" Alias \"SendMessageA\" ( _
                        ByVal hwnd As Long, ByVal wMsg As Long, _
                        ByVal wParam As Integer, ByVal lParam As Any) As Long

Const LB_FINDSTRING = &H18F

Private Sub Form_Load()
  With List1
      .AddItem \"Computer\"
      .AddItem \"Screen\"
      .AddItem \"Modem\"
      .AddItem \"Printer\"
      .AddItem \"Scanner\"
      .AddItem \"Sound Blaster\"
      .AddItem \"Keyboard\"
      .AddItem \"CD-Rom\"
      .AddItem \"Mouse\"
  End With
End Sub

Private Sub Text1_Change()
  List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text))
End Sub
\'------------------------------------ Form1 ------------------------------------

Som sædvanlig perfekt! Hvor f.. får du det fra?

Hvor f.. får du det fra?

skal jeg fåstå det som et spørgsmål. Ha..Ha........

Nej vel. ;)

Det ville nok ikke være så ligetil at remse op!
Måske lærer jeg lidt hen ad vejen.Mange tak for nu!

slev tak.