'(ed: BV)

Private Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long

 

Private Const LB_FINDSTRING As Long = &H18F

 

Private Sub Command1_Click()

   List1.ListIndex = SendMessageByString(List1.hWnd, LB_FINDSTRING, -1, "Bas")

End Sub

 

Private Sub Form_Load()

   List1.AddItem "sourcesRu"

   List1.AddItem "Visual"

   List1.AddItem "Basic"

End Sub