Private Sub iGrid1_TextEditChange(ByVal lRow As Long, ByVal lCol As Long)
iGrid1.TextEditText = (UCase(iGrid1.TextEditText))
End Sub

Private Sub iGrid1_TextEditChange(ByVal lRow As Long, ByVal lCol As Long)
iGrid1.TextEditText = (UCase(iGrid1.TextEditText))
iGrid1.SelStart = Len(iGrid1.TextEditText)

End Sub

Private Function IsLowerCaseChar(ByVal CharCode As Long) As Boolean
   IsLowerCaseChar = (CharCode >= &H61) And (CharCode <= &H7A) ' letters from 'a' to 'z'
End Function

Private Function GetUpperCaseChar(ByVal CharCode As Long) As Long
   GetUpperCaseChar = CharCode - &H20
End Function

Private Sub iGrid1_RequestEdit(ByVal lRow As Long, ByVal lCol As Long, ByVal lCharCode As Long, bCancel As Boolean, sText As String, lMaxLength As Long, eTextEditOpt As iGrid500_10Tec.ETextEditFlags)
   If IsLowerCaseChar(lCharCode) Then
      sText = Chr(GetUpperCaseChar(lCharCode))
   End If
End Sub

Private Sub iGrid1_TextEditKeyPress(ByVal lRow As Long, ByVal lCol As Long, CharCode As Long)
   If IsLowerCaseChar(CharCode) Then
      CharCode = GetUpperCaseChar(CharCode)
   End If
End Sub