Dim instance As ExcelSheet
Dim col1 As Integer	'1から始まる開始列番号
Dim row1 As Integer	'1から始まる開始行番号
Dim col2 As Integer	'1から始まる終了列番号
Dim row2 As Integer	'1から始まる終了行番号
Dim c As System.Drawing.Color

'Overloads
instance.RangeForeColor(col1, row1, col2, row2, c)

Dim instance As ExcelSheet
Dim col1 As Integer	'1から始まる開始列番号
Dim row1 As Integer	'1から始まる開始行番号
Dim col2 As Integer	'1から始まる終了列番号
Dim row2 As Integer	'1から始まる終了行番号
Dim c As Integer

'Overloads
instance.RangeForeColor(col1, row1, col2, row2, c)

'ExcelSheetクラス RangeForeColorメソッド

Public Class AddIn

    Private es As ExcelSheet

    Public Sub New()
        es = New ExcelSheet()
		es.SelectSheet(1)
		es.RangeValue(1, 1, 5, 5, "■あ■")		'A1:E5
		es.RangeForeColor(1, 1, 5, 1, System.Drawing.Color.Red)		'A1:E1
		es.RangeForeColor(1, 2, 5, 2, System.Drawing.Color.Green)		'A2:E2
		es.RangeForeColor(1, 3, 5, 3, System.Drawing.Color.Blue)		'A3:E3
		es.RangeForeColor(1, 4, 5, 4, 255)		'A4:E4 Red
		es.RangeForeColor(1, 5, 5, 5, &HFF00FF)	'A5:E5 Purple
		es.Save("D:\tmp\sample2.xlsx")
		es.Dispose()
    End Sub

End Class