Private Sub txtBaraj_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtBaraj.KeyDown Select Case e.KeyCode Case Keys.Return MsgBox("Skoci na gridu sa enter") Me.grdArtikli.Select() Case Keys.Down MsgBox("Skoci na listBox sa strelica") End Select End Sub