Visual Basic

public sub Test(byval sender as object, byval e as system.eventargs)<br />
 Dim n1, n2 As Integer<br />
Dim n3 As Single<br />
n1 = CInt(txtIn1.Text)<br />
n2 = CInt(txtIn2.Text)<br />
Try<br />
lblOut.Text = n1 / n2<br />
Catch e As Exception<br />
lblWarn.Text = "Warning!"<br />
End Try<br />
end sub<br />

    <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 />