Disable Enter Key on Command Button

[Gini]

I have to create a message box that only responds to a mouse click on the command button; if the user presses the enter key, it shouldn't answer the command button. Can anyone help?

[berta]

private Sub Command1_KeyDown(KeyCode as Integer, Shift as Integer)
'vbkeyenter=13
if keycode=vbkeyenter then keycode=0
End Sub




<center>
<HR width=80%>
<img src='http://web.tiscali.it/bertaplanet/images/bertaplanet.gif'>
</center>