codice:
Private Sub Form_KeyPress(KeyAscii As Integer) 
   if KeyAscii=13 then msgbox(prova) 
End Sub