modutilities.bas

library system for students..these is very useful system.....

Attribute VB_Name = "modUtilities"
Option Explicit

Public Function ComboBoxBySelectedID(ByRef cbo As VB.ComboBox, ByVal intID As Integer) As Integer
    Dim x As Integer
    ComboBoxBySelectedID = -1
    For x = 0 To cbo.ListCount - 1
        If cbo.ItemData(x) = intID Then
            ComboBoxBySelectedID = x
        End If
    Next x
End Function