Visual Basic

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
    Dim notSelectableIndices As Integer() = New Integer() {2, 5, 8}

    Dim index As Integer
    For Each index In notSelectableIndices
        If (ListBox1.GetSelected(index)) Then
            ListBox1.SetSelected(index, False)
        End If
    Next
End Sub

Dim index As Integer
Dim idexArray(2) As Integer
Dim strEval As String
Dim i As Integer = 0
Dim j As Integer = 0

'Evaluate which items in the list box should not be
'allowed to be selected
'If the list was larger this would be set globally once and used
For i = 0 To lbEducationalMaterials.Items.Count - 1
    strEval = Microsoft.VisualBasic.Left(lbEducationalMaterials.Items.Item(i), 2)
    If strEval = "--" Then
        idexArray(j) = lbEducationalMaterials.Items.IndexOf(lbEducationalMaterials.Items.Item(i))
        j += 1
    End If
Next

'set the total bound of the array
i = idexArray.GetUpperBound(0)

'identify and unselect items
For Each index In idexArray
    If (lbEducationalMaterials.GetSelected(index)) Then
        lbEducationalMaterials.SetSelected(index, False)
    End If
Next

My: Blog | Photos
WDevs.com - Open Source Code Hosting, Blogs, FTP, Mail and More

site:msdn.microsoft.com smalldatetime

SELECT MyColumn1, MyColumn2 
FROM MyTable
WHERE DateKeeper>=@firstDate
AND DateKeeper<=@lastDate

MyCommand.Parameters.Add("@firstDate", firstDateTime);
MyCommand.Parameters.Add("@lastDate", lastDateTime);

My: Blog | Photos
WDevs.com - Open Source Code Hosting, Blogs, FTP, Mail and More