Code Colors

Private Sub Form_Load()
Me.Grid1.ExcelFileName = "C:\Temp\GridTest"
Me.Grid1.TableName = "Test"
End Sub

Code:

Private Sub Form_Load()
    Me.Grid1.ExcelFileName = "C:\Temp\GridTest"
    Me.Grid1.TableName = "Test"
End Sub

vb Code:

Private Sub Form_Load()
    Me.Grid1.ExcelFileName = "C:\Temp\GridTest"
    Me.Grid1.TableName = "Test"
End Sub

vb Code:

'
    Me.Grid1.AddColumn "Field1", adotype.adVariant
    Me.Grid1.AddColumn "Field2", adotype.adVariant
    Me.Grid1.AddColumn "Field3", adotype.adVariant
    Me.Grid1.AddColumn "Field4", adotype.adNumeric
    '
    Me.Grid1.Initialize
    '
    Me.Grid1.AppendRow
    Me.Grid1.AppendRow
    Me.Grid1.AppendRow
    Me.Grid1.AppendRow
    '
    Me.Grid1.Show
    '
    ' User edits ....
    '
    Me.Grid1.Export
    '

vb Code:

'
    If modKeyState.IsTabPressed And Not modKeyState.IsTabPressed Then
    ' 
    ' Why won't this code run?
    '    
    '