ник: Силblч
вроде бы нае 
поборол!
Private Sub oTxtBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
On Error GoTo err123
Dim rowid&, offset%
'-- перехват управления стрелками
If KeyCode = 40 Or KeyCode = 38 Then
rowid = Replace(oTxtBox.name, "txtValue", "") * 1
Select Case KeyCode
Case 38: offset = -1
Case 40: offset = 1
Case Else
offset = 0
End Select
KeyCode = 0
If isControl("txtValue" & (rowid + offset)) Then
frmCaller.Controls("txtValue" & (rowid + offset)).SetFocus
Call SetRowSelector(rowid + offset)
End If
End If
Exit Sub
err123:
MsgBox Error, , "TextBox #" & Err
Exit Sub
End Sub
|
з.ы. бонус трек
- Все ГАИшники спрашивают: «Ты пил?» Хоть бы один поинтересовался: «Ты ел?»
- Позитивный человек - это тот, кого послали «нахрен», а он оттуда вернулся отдохнувший и с магнитиками.
- Страх - это когда трамвай, зацепивший «порше-кайен», скрывается во дворах.