Dim instance As ExcelSheet
Dim col As Integer	'1から始まる列番号
Dim row As Integer	'1から始まる行番号
Dim c As System.Drawing.Color

'Overloads
instance.CellForeColor(col, row, c)

Dim instance As ExcelSheet
Dim col As Integer	'1から始まる列番号
Dim row As Integer	'1から始まる行番号
Dim c As Integer

'Overloads
instance.CellForeColor(col, row, c)

'ExcelSheetクラス CellForeColorメソッド

Public Class AddIn

    Private es As ExcelSheet

    Public Sub New()
        es = New ExcelSheet()
		es.SelectSheet(1)
		es.CellValue(1, 1, 123)		'A1
		es.CellForeColor(1, 1, System.Drawing.Color.Red)		'A1
		es.CellValue(1, 2, "あいう")		'A2
		es.CellForeColor(1, 2, &HFF0000)		'A2 Blue
		es.Save("D:\tmp\sample2.xlsx")
		es.Dispose()
    End Sub

End Class