Code: Select all
Function frmColor(frmColor As String)
Dim f As Form
Dim i As Integer
Dim fcolor As String
fcolor = f
For i = 0 To Currentroject.AllForms.Count -1
Set f = Forms(i)
'KeyPress = True 'needed or not ?
'KeyCode = 0 'needed or not ?
Select Case x
Case 0-9
vbKey0, vbKey1, vbKey2, vbKey3, vbKey4, vbKey5, vbKey6, vbKey7, vbKey8, vbKey9
fcolor.BorderColor = vbRed
fcolor.BorderWidth = 2
Case Else
'do nothing
End Select