[resoloved]How to bind?

[n00b scripter]

Ok a simple question how to bind a command button to enter?

[Pasvorto]

Set its 'default' property to TRUE

[RhinoBull]

Or do it programmatically:

'method 1
Private Sub Form_Load()
    Me.KeyPreview = True
End Sub
 
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    If Shift = 0 And KeyCode = 13 Then
        Command1_Click
    End If
End Sub
 
'OR
 
'method 2
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        Command1_Click
    End If
End Sub

[n00b scripter]

Thx guys that helped