' ****************************************************** ' 行選択状態の設定 ' ****************************************************** Public Sub SetSelectRow(ByVal nRow As Integer, ByVal flg As Boolean) Me.Rows(nRow).Selected = flg End Sub