Try 'エラーになるかも知れない行 Row = DirectCast(Me.Items(e.Index), DataRowView) Catch ex As Exception 'エラー発生時に内容を表示 MsgBox(String.Format("e.Index={0}, Me.Items.Count={1}:" _ & vbCrLf & "{2}", e.Index, Me.Items.Count, ex.Message)) End Try