Visual Basic

    <br />
Private Sub ComboBox1_DrawItem(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles Main.DrawItem<br />
        Dim cmb As ComboBox = CType(sender, ComboBox)<br />
        If e.Index = -1 Then<br />
            Return<br />
        End If<br />
        If sender Is Nothing Then<br />
            Return<br />
        End If<br />
        Dim Color1 As Color = Color.Black<br />
        Dim g As Graphics = e.Graphics<br />
        'string brushName = (string)cmb.Items[die.Index];<br />
        'SolidBrush selectedBrush = (SolidBrush)brushMap[brushName];<br />
        Dim selectedbrush As New SolidBrush(Color1)<br />
        selectedbrush.Color = Color1<br />
        ' If the item is selected, this draws the correct background color<br />
        e.DrawBackground()<br />
        e.DrawFocusRectangle()<br />
        Dim rectPreviewBox As Rectangle = e.Bounds<br />
<br />
        Dim item As String = CType(cmb.Items.Item(e.Index), String)<br />
        ' Draw the name of the color selected<br />
        Dim font As New Font("Times New Roman", 12, FontStyle.Regular, GraphicsUnit.Pixel)<br />
        g.DrawString(item, font, New SolidBrush(e.ForeColor), e.Bounds.X, e.Bounds.Y + 1)<br />
    End Sub<br />
<br />

Imports System.DirectoryServices

Private Sub ScanMachines()
        '
        ' Get the list of machine names in the current domain
        ' as specified by txtMachineSpec.
        '
        Dim ds As New DirectorySearcher
        ds.SearchRoot = New DirectoryEntry

        Dim wildcards() As String = Split(txtMachineSpec.Text.ToUpper, ",")
        ds.Filter = GetFilterString(wildcards)

        ds.PropertyNamesOnly = True
        ds.PropertiesToLoad.Add("name")
        ds.Sort = New SortOption("name", SortDirection.Ascending)
        ds.PageSize = 9999

        Dim src As SearchResultCollection

        Try
            '
            ' Enumerate the machines in AD.
            '
            src = ds.FindAll()

            Try
                For Each sr As SearchResult In src
                    '
                    ' Get the machine name, stripping off the "CN=" portion
                    ' as we go.
                    '
                    Dim de As DirectoryEntry = sr.GetDirectoryEntry()
                    Dim machineName As String = Replace(de.Name, "CN=", "", 1, 1)

                    '
                    ' Do your stuff here ...
                    '

                Next

            Catch ex As Exception
                MessageBox.Show("1: " & ex.Message)

            End Try

        Catch ex As InvalidOperationException
            MessageBox.Show("2: " & ex.Message)

        Catch ex As NotSupportedException
            MessageBox.Show("3: " & ex.Message)

        Catch ex As Exception
            MessageBox.Show("4: " & ex.Message)

        Finally

            If Not src Is Nothing Then
                src.Dispose()
            End If

            If Not ds Is Nothing Then
                ds.Dispose()
            End If

        End Try

    End Sub

<br />
Option Strict On<br />
<br />
    Function selectTest(ByVal intAntal As Integer) As Boolean<br />
<br />
        Select Case (intAntal)<br />
<br />
            Case CInt((30 / 20) * 100), Is >= 100<br />
                selectTest = True<br />
                'Exit Function<br />
<br />
            Case Else<br />
                selectTest = False<br />
<br />
        End Select<br />
<br />
    End Function<br />