Option Explicit

'OKボタンを押しました
Private Sub Command1_Click()
    Dim strMsg As String
    
    'コンボボックスの選択しているアイテムに応じて
    'コメントの出力を制御します
    Select Case Combo1.ListIndex
        Case 0: strMsg = "寝てます"
        Case 1: strMsg = "セキこみました"
        Case 2: strMsg = "ゴロゴロしてます"
        Case 3: strMsg = "動揺してます"
        Case 4: strMsg = "ニンジンをくわえてます"
    End Select
    'メッセージボックスで表示します
    MsgBox strMsg
End Sub

'閉じるボタンを押しました
Private Sub Command2_Click()
    'フォームを終了します
    Unload Me
End Sub

'フォームをロードします
Private Sub Form_Load()
    Dim strMsg(4)   As String
    Dim j           As Long
    Dim jmax        As Long
        
    'アイテムを配列に格納します
    strMsg(0) = "かわいい"
    strMsg(1) = "綺麗かも"
    strMsg(2) = "汚いかも"
    strMsg(3) = "縁が良い"
    strMsg(4) = "ネコ？ウサギ？"
    'コンボボックスにアイテムを追加します
    With Combo1
        jmax = UBound(strMsg)
        For j = 0 To jmax
            .AddItem strMsg(j)
        Next
        '最初のアイテムを選択状態にします
        .ListIndex = 0
    End With
    
    '時間稼ぎ（実際は、初期設定でForm表示が遅くなる)
    For j = 0 To 4000000: Next
    
End Sub