Visual Basic

A first chance exception of type 'System.NullReferenceException' occurred in Janus.Windows.GridEX.v3.dll
System.NullReferenceException: Object reference not set to an instance of an object.
   at Janus.Windows.GridEX.GridEXCellCollection.get_Item(GridEXColumn column)
   at Janus.Windows.GridEX.GridEX.GetValue(GridEXColumn column)
   at Janus.Windows.GridEX.GridEX.GetValue(String columnKey)
   at JWI.frmLOL.SaveTab1(Object& _frmGuid) in C:\JWI\JWI\JWI\frmLOL.vb:line 708

strJnts = GridEX1.GetValue("E") 'or "B1" or "B2"  etc

Public Function SaveTab1(ByRef _frmGuid As Object) As Boolean
    Dim rowNdx As Integer = 0 'Set to zero index value
    Dim strJnts As String
    Dim _MATGuid As Object
    Try
        'On Error Resume Next
        GridEX1.BoundMode = Janus.Windows.GridEX.BoundMode.Unbound
        'allows us to use it in AddItem mode
        GridEX1.KeepRowSettings = True
        'keeps settings same when row scrolls out of sight
        Dim checkedRows() As Janus.Windows.GridEX.GridEXRow
        checkedRows = GridEX1.GetCheckedRows()
        'if the user didn't check any row, you will get an empty array
        If checkedRows.Length = 0 Then
            'no materials on Tab1 Tubing so we need to check Tab2 Pipe
            'SaveTab2()
        Else
            Dim row As Janus.Windows.GridEX.GridEXRow
            For Each row In checkedRows
                'get the rows MaterialID
                _MATGuid = row.Cells.Item("MaterialID").Value.ToString
                'Now lets check each column to see if any units selected
                strJnts = GridEX1.GetValue("E")
                If strJnts > 0 Then
                    If DoSaveData(strJnts, _MATGuid, 2, "E") = False Then
                        Return False
                        Exit Function
                    End If
                End If
                strJnts = GridEX1.GetValue("B2")
                If strJnts > 0 Then
                    If DoSaveData(strJnts, _MATGuid, 2, "B2") = False Then
                        Return False
                        Exit Function
                    End If
                End If

                strJnts = GridEX1.GetValue("B1")
                If strJnts > 0 Then
                    If DoSaveData(strJnts, _MATGuid, 2, "B1") = False Then
                        Return False
                        Exit Function
                    End If
                End If

                If row.Cells.Item("B").Value <> False Then
                    strJnts = row.Cells.Item("B").Value.ToString
                    If DoSaveData(strJnts, _MATGuid, 2, "B") = False Then
                        Return False
                        Exit Function
                    End If
                End If
                If row.Cells.Item("A").Value <> False Then
                    strJnts = row.Cells.Item("A").Value.ToString
                    If DoSaveData(strJnts, _MATGuid, 2, "A") = False Then
                        Return False
                        Exit Function
                    End If
                End If
            Next

        End If

    Catch ex As System.NullReferenceException
        Debug.Print(ex.ToString)
    End Try

    Return True

End Function

This Workbook
Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    CommandButtonForm.Show  'commandbuttonform
    Sheets(ActiveSheet.Index).Select
    Range("A1").Select
End Sub

Chr(27) + Chr(112) + Chr(0) + Chr(48) + Chr(63)

<br />
    Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Keys) As Integer<br />
<br />
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
<br />
<br />
    End Sub<br />
<br />
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick<br />
        <br />
        If GetAsyncKeyState(Keys.A) > 0 Then<br />
<br />
            MsgBox("A")<br />
<br />
        Else<br />
        End If<br />
       <br />
<br />
    End Sub<br />
End Class