'使用法
 
Dim name As String
Dim backColor As Color
Dim cellBackColor As Color
Dim cellForeColor As Color
Dim gridLineColor As Color
Dim gridLines As GridLines
Dim headerBackColor As Color
Dim footerBackColor As Color
Dim headerForeColor As Color
Dim footerForeColor As Color
Dim selectionBackColor As Color
Dim selectionForeColor As Color
Dim evenRowBackColor As Color
Dim oddRowBackColor As Color
Dim flatColumnHeader As Boolean
Dim flatColumnFooter As Boolean
Dim flatRowHeader As Boolean
Dim headerFontBold As Boolean
Dim footerFontBold As Boolean
Dim showColumnHeader As Boolean
Dim showColumnFooter As Boolean
Dim showRowHeader As Boolean
Dim columnHeaderParent As String
Dim columnFooterParent As String
Dim rowHeaderParent As String
Dim dataAreaParent As String
Dim cornerParent As String
 
Dim instance As New SheetSkin(name, backColor, cellBackColor, cellForeColor, gridLineColor, gridLines, headerBackColor, footerBackColor, headerForeColor, footerForeColor, selectionBackColor, selectionForeColor, evenRowBackColor, oddRowBackColor, flatColumnHeader, flatColumnFooter, flatRowHeader, headerFontBold, footerFontBold, showColumnHeader, showColumnFooter, showRowHeader, columnHeaderParent, columnFooterParent, rowHeaderParent, dataAreaParent, cornerParent)