Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
   (ByVal hwnd As Long, ByVal wMsg As Long, _
   ByVal wParam As Long, ByVal lParam As String) As Long
 
Const CB_FINDSTRINGEXACT = &H158
 
 
 
 
 
Private Sub LabelPInfo_Change()
 
   ComboBox2.ListIndex = SendMessage(ComboBox2.hwnd, CB_FINDSTRINGEXACT, -1, _
     LabelPInfo.Caption)
 
End Sub