テキストボックス内でEnterによる改行するには？

解決

なお 2003-07-09 06:27:37 No: 78592 IP: [192.*.*.*]

win2k vb6.0

テキストボックスで複数行入力したい為にMultiLine プロパティを
設定してCtrl+Enterで改行できるのですが、Enterのみで改行させたい為、
下記のコードでEnterを押したのですが入力した文字が下がりうまく
改行できません。ご教授よろしくお願いします。

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
       Text1.Text = Text1.Text & vbCrLf
    End If
End Sub

編集削除

batchman 2003-07-09 09:08:18 No: 78593 IP: [192.*.*.*]

同じフォーム上にDefaultプロパティがTrueになったコマンドボタンが配置されてないですか？

DefaultプロパティをFalseにすれば、コードをなにも書かなくてもEnterで改行しますけども．．．．

編集削除

なお 2003-07-09 14:26:41 No: 78594 IP: [192.*.*.*]

batchmanさんありがとうございました。何も書かずにEnterを押せば
改行いたしました。助かりました。

編集削除