[378.xls]



' [mjSumple] のコード
'■■　コンボボックスでリストの幅を指定する　■■
'

'フォームを表示します
Sub frmSumple_Show()
    'リストに１件追加します
    frmSumple.cmbSelect1.AddItem "12345678"
    
    'リストの幅を100ptに設定します(0にするとｺﾝﾎﾞﾎﾞｯｸｽの幅と同じになります)
    frmSumple.cmbSelect1.ListWidth = 100
    
   'フォームの表示
    frmSumple.Show
End Sub