' ******************************************************
' 行の取得
' ******************************************************
Public Function FindNextRow() As Boolean

	FindNextRow = True

	nCurrentRow += 1
	If nCurrentRow + 1 > Me.Rows.Count Then
		nCurrentRow = Me.Rows.Count - 1
		FindNextRow = False
	End If

End Function

' ******************************************************
' 行フラグが一致する行の取得
' ******************************************************
Public Function FindNextRow(ByVal flg As Integer) As Boolean

	FindNextRow = False

	Do While (Me.FindNextRow())
		If Me.GetRowFlg() = flg Then
			FindNextRow = True
			Exit Do
		End If
	Loop

End Function

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

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

Loop

' ******************************************************
' 更新された行の取得
' ******************************************************
Public Function FindNextRowDirty() As Boolean

	FindNextRowDirty = False

	Do While (Me.FindNextRow())
		If Me.GetRowDirty() Then
			FindNextRowDirty = True
			Exit Do
		End If
	Loop

End Function