- Код: Выделить всё
Private Sub Text1_KeyDown(K As Integer, Shift As Integer)
If K = 13 Then
Form1.BackColor = vbRed
End If
End Sub
А это нет:
- Код: Выделить всё
Private Sub Form1_KeyDown(K As Integer, Shift As Integer)
If K = 13 Then
Form1.BackColor = vbRed
End If
End Sub
???
И что можно сделать, что бы это работало?
