Dim list
Dim i
   
    Set list = Application.PickLists("Opportunity Status")
    For i = 0 To list.Count - 1
        ComboBox1.Items.Add list.Item(i).Text
    Next
    Set list = Nothing

Dim hnd As Long
Dim r As String
Dim listname As String
Dim sql As String
 
    listname = "Opportunity Status"
 	
    sql = "select p1.text from picklist p1 left outer join picklist p2 " & _
          "on (p1.picklistid = p2.itemid) where p2.picklistid = 'PICKLISTLIST' " & _
          "and p2.text = '" & listname & "'"
 
    hnd = DBOpenSql(sql, True)
    r = DBMoveTo(hnd, "BOF")
 
    WithObject "ComboBox1"
        ListClear "Items"
        While Not DBEOF(hnd)
            ListAdd "Items", DBGetValue(hnd, "text")
            r = DBMoveTo(hnd, "Next")
        Wend
    EndObject
    DBClose hnd