Option Explicit

'フォームのロードです
Private Sub Form_Load()
    List1.AddItem "3.14159265358979323846264338327950288" _
            & "ってπを憶えてるけどVBで入力すると" _
            & "そんなに必要ない」とばかりにバサッと削られます(涙"
    '横スクロールバーのリフレッシュをします
    OnListScroll List1
End Sub

'テキストボックスでキーを押しました

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        'アイテムの追加をします
        List1.AddItem Text1.Text, 0
        Text1.Text = ""
        '一行テキストボックスで改行することにより発生する
        'Beep音の消去をします
        KeyAscii = 0
    End If
End Sub