Private Function SelectBySymbol(ByVal pSymbol As ISymbol) As Boolean
    If pSymbol Is Nothing Then Exit Function
    Dim pSymbologyStyleClass As ISymbologyStyleClass
    With SymbologyControl1
        Set pSymbologyStyleClass = .GetStyleClass(.StyleClass)
    End With
    Dim pIndex As Long, tmpSymbol As ISymbol
    Dim pStyItem As IStyleGalleryItem
    For pIndex = 0 To pSymbologyStyleClass.ItemCount - 1
        Set pStyItem = pSymbologyStyleClass.GetItem(pIndex)
        Set tmpSymbol = pStyItem.Item
        If tmpSymbol Is m_pSymbol Then
            pSymbologyStyleClass.SelectItem pIndex
            Exit For
        End If
    Next
End Function

呵呵， ISymbologyStyleClass是一个不错的类啊 ！！