' ******************************************************
' カラム色設定
' ******************************************************
Public Sub SetColumnColor(ByVal nRow As Integer, _
 ByVal strName As String, ByVal Color As System.Drawing.Color)

	Me(strName, nRow).Style.ForeColor = Color

End Sub
Public Sub SetColumnColor(ByVal nRow As Integer, _
  ByVal nCol As Integer, ByVal Color As System.Drawing.Color)

	Me(nCol, nRow).Style.ForeColor = Color

End Sub
Public Sub SetColumnColor(ByVal strName As String, ByVal Color As System.Drawing.Color)

	Me.Rows(nCurrentRow).Cells(strName).Style.ForeColor = Color

End Sub
Public Sub SetColumnColor(ByVal nCol As Integer, ByVal Color As System.Drawing.Color)

	Me.Rows(nCurrentRow).Cells(nCol).Style.ForeColor = Color

End Sub