' ******************************************************
' カレント行設定
' ******************************************************
Public Sub SetCurrentRow(ByVal nRow As Integer)

	nCurrentRow = nRow

End Sub
Public Sub SetCurrentRow()

	nCurrentRow = -1

End Sub

Me.LboxGrid1.SetCurrentRow()
Do While (Me.LboxGrid1.FindNextRow())

	MessageBox.Show(CType(Me.LboxGrid1.GetColumnValue("CHECK"), Boolean))

Loop