strTypeEx = ReadIniFile("Type", "Type", App.Path & "\set.ini") 
strTypeEx = Split(strTypeEx, ";") 
For i = LBound(strTypeEx) To UBound(strTypeEx) 
   CboType.AddItem Trim(strTypeEx(i)) 
Next i