C# と VB.NET の質問掲示板

コンボボックス表示をカスタマイズしたく、下記サイトを参考に
（ttp://youryella.wankuma.com/Library/Extensions/ComboBox/OwnerDraw.aspx）
DrawItemイベントで実装しようと思っていますが、
デフォルトのDrawItem機能を呼び出したいのですが
どのように呼び出したら良いかわかりません。

そもそも参考にしたサイトではオーバーライドを前提とした
サンプルであるため、イベントで実装することは出来ないのでしょうか？

※イベントにこだわっている理由は、自動生成されたデザインファイルを
　直接編集したくないからになります。

アドバイス頂けないでしょうか？

VB.NET、VS2010

    Private Sub cboCardSelect_DrawItem(sender As Object, e As System.Windows.Forms.DrawItemEventArgs) Handles cboCardSelect.DrawItem
        If e.Index = -1 Then
            Return
        End If

        ' 背景を描画
        e.DrawBackground()

        ' テキストを描画
        Dim txt As String = cboCardSelect.Items(e.Index).ToString
        Using sb As New SolidBrush(e.ForeColor)
            e.Graphics.DrawString(txt, e.Font, sb, e.Bounds)
        End Using

        ' フォーカス枠を描画
        e.DrawFocusRectangle()

        'MyBase.OnDrawItem(e)    'このベースクラスのOnDrawItemを呼びたい
    End Sub

> オーナードローでなければ思った通りに表示されるのでしょうか？
> 提示コードの記述には問題がないように思われます。

オーナードローでなければ問題なく動作しています。

e.Index、e.State、cboCardSelect.Items(e.Index)の内容を
debug.printで表示し、イベントの発生の仕方などを
見ているのですが、トップの部分の描画のための
イベントは発生しているようです（e.State=ComboBoxEdit）。

環境は下記です。
　・VB.NET
　・.NETFramework4.0
　・Windows7（32bit）

> リストの設定はどのように行っていますでしょうか？

こんな感じで行っています。
普通にaddでセットしているだけになります。
        rec_DATA = レコードセットを開く
            frmMain.cboCardSelect.Items.Clear()
            intIndex = 0
            Do While recETC_DATA.Read() = True
                frmMain.cboCardSelect.Items.Add(rec_DATA.Item("CARD_ID"))
                If frmMain.cboCardSelect.Items.Item(intCount) = strCARD_NO Then
                    intIndex = intCount
                End If
                intCount = intCount + 1
            Loop
            If frmMain.cboCardSelect.Items.Count > 0 Then
                frmMain.cboCardSelect.SelectedIndex = intIndex
            End If
        rec_DATA.Close() 'レコードセットを閉じる

追記情報

１．オーナードローを行いないと正常動作
２．オーナードローを行っている状態でDropDownStyle=DropDownListだと異常動作
３．オーナードローを行っている状態でDropDownStyle=DropDownだと正常動作

上記３については、トップの部分が手入力により編集できてしまうので
運用上NGであるが、編集できないようにできればいいのですが・・・

上記２については、下記のように調査した結果
トップ部分の描画イベントは上がっているが、
描画する領域が適切に上がっていないのではないかと考えました。
これは回避方法ないですよね。きっと（涙）

デバック表示コード
        Debug.Print("--------")
        Debug.Print(e.Index.ToString)
        Debug.Print(e.State.ToString)
        Debug.Print(e.Bounds.ToString)
        Debug.Print(cboCardSelect.RectangleToScreen(e.Bounds).ToString)　＜−ここは正しいかちょっと怪しい

ログ内容
　アイテムが３つ追加されている状態で、
　全体を表示し、２番目を選択するまでのログ。

--------
0
Selected, NoAccelerator, NoFocusRect
{X=0,Y=0,Width=181,Height=18}
{X=563,Y=130,Width=181,Height=18}
--------
0
Selected, NoAccelerator, NoFocusRect
{X=0,Y=0,Width=181,Height=18}
{X=563,Y=130,Width=181,Height=18}
--------
1
NoAccelerator, NoFocusRect
{X=0,Y=18,Width=181,Height=18}
{X=563,Y=148,Width=181,Height=18}
--------
2
NoAccelerator, NoFocusRect
{X=0,Y=36,Width=181,Height=18}
{X=563,Y=166,Width=181,Height=18}
--------
0
Selected, Focus, NoAccelerator, NoFocusRect
{X=0,Y=0,Width=181,Height=18}
{X=563,Y=130,Width=181,Height=18}
--------
0
NoAccelerator, NoFocusRect, ComboBoxEdit
{X=3,Y=3,Width=161,Height=18}
{X=566,Y=133,Width=161,Height=18}
--------


--------
0
Selected, NoAccelerator, NoFocusRect
{X=0,Y=0,Width=181,Height=18}
{X=563,Y=130,Width=181,Height=18}
--------
0
NoAccelerator, NoFocusRect
{X=0,Y=0,Width=181,Height=18}
{X=563,Y=130,Width=181,Height=18}
--------
1
Selected, NoAccelerator, NoFocusRect
{X=0,Y=18,Width=181,Height=18}
{X=563,Y=148,Width=181,Height=18}
--------
1
Selected, Focus, NoAccelerator, NoFocusRect
{X=0,Y=18,Width=181,Height=18}
{X=563,Y=148,Width=181,Height=18}
--------
1
Selected, Focus, NoAccelerator, NoFocusRect, ComboBoxEdit
{X=3,Y=3,Width=161,Height=18}
{X=566,Y=133,Width=161,Height=18}
--------
1
Selected, Focus, NoAccelerator, NoFocusRect, ComboBoxEdit
{X=3,Y=3,Width=161,Height=18}
{X=566,Y=133,Width=161,Height=18}
--------


--------
1
NoAccelerator, NoFocusRect, ComboBoxEdit
{X=3,Y=3,Width=161,Height=18}
{X=566,Y=133,Width=161,Height=18}
--------