Override the BrowserCode function of the control.
Something like:
Function BrowserCode( ) As String
BrowserCode = Super::BrowserCode( )
Dim strNL As String
strNL = Chr$(10)
BrowserCode = "<INPUT TYPE='text' NAME='Storeroom'
id='Storeroom' VALUE='" & loc & "' onkeyup='return
formKeyPress(event, this);'></INPUT>" & strNL
BrowserCode = BrowserCode & "<script
language='javascript'>" & strNL
If Not(loc = "") Then
BrowserCode=BrowserCode & "cookieUpdate
('Storeroom');"& strNL
Else
BrowserCode=BrowserCode & "fieldUpdate
('Storeroom')" & strNL
End If
BrowserCode = BrowserCode & "function formKeyPress
(evt, thisObj)" & strNL
BrowserCode = BrowserCode & "{ thisObj.value = thisObj.value.toUpperCase(); }" & strNL
BrowserCode = BrowserCode & "</script>" & strNL
End Function
I hope this helps a bit.
Pete