npoi create cell drop down list in excel

'NPOI Download from here:http://npoi.codeplex.com/releases

Imports NPOI.HSSF

Imports NPOI.HSSF.UserModel

Imports NPOI.SS.UserModel

'-------------------------------- 

Public Sub CreateCellDropDownList()
        Dim wb As New HSSFWorkbook()
 
        'Create an entry of DocumentSummaryInformation  
        Dim dsi As DocumentSummaryInformation = PropertySetFactory.CreateDocumentSummaryInformation()
        dsi.Company = "MY COMPANY"
        wb.DocumentSummaryInformation = dsi
 
        'Create an entry of SummaryInformation  
        Dim si As SummaryInformation = PropertySetFactory.CreateSummaryInformation()
        si.Subject = "NPOI DEMO"
        wb.SummaryInformation = si
 
        'シートを追加する
        Dim sheet As HSSFSheet = wb.CreateSheet
 
        'データの入力規則の「元の値」を定義する
        Dim dataList As String() = New String() {"aaaa", "bbbb", "cccc", "dddd"}
 
        'データの入力規則を設定するセルを設定する
        Dim addList As New CellRangeAddressList(0, 0, 0, 0)
 
        Dim dvConstraint As DVConstraint = dvConstraint.CreateExplicitListConstraint(dataList)
 
        'データの入力規則を定義する
        Dim dataValidation As New HSSFDataValidation(addList, dvConstraint)
 
        'ドロップダウンリストから選択できるようにする
        dataValidation.SuppressDropDownArrow = False
 
        'データの入力規則を設定する
        sheet.AddValidationData(dataValidation)
 
        Using fs As New FileStream("C:\temp\celldropdown.xls", FileMode.OpenOrCreate, FileAccess.Write)
            wb.Write(fs)
        End Using
 
    End Sub