Public Class ComboBoxEx Inherits ComboBox Public Sub New() If AppDomain.CurrentDomain.FriendlyName <> "DefaultDomain" Then 'デザイン時でなければ内容をセットする。 Me.cmb1() End If End Sub ''' <summary> ''' コンボボックスの内容を予め、*.mdbのテーブルを表示する ''' ※このサンプルでは固定値をセットします。 ''' </summary> Private Sub cmb1() Me.Items.Add("明治") Me.Items.Add("大正") Me.Items.Add("昭和") Me.Items.Add("平成") Me.Items.Add("令和") End Sub End Class