请问combox控件itemdata值越界有关问题

请教combox控件itemdata值越界问题!在VB中使用combox控件,需要将单位代码写在Itemdata中,将单位名称写在li

请教combox控件itemdata值越界问题!
在VB中使用combox控件,需要将单位代码写在Itemdata中,将单位名称写在list中,
例如:combox1.additem   "某某单位名称 "
            combox1.itemdata(0)   =   10010000000000
单位很多,下拉选择一个单位后,便可通过combox1.itemdata(combox1.listindex)得到单位代码。

问题是:
itemdata是一个长整型的数组,可是单位代码的长度超过了长整型,不想修改单位代码长度和编码规则,为每个combox定义一个对应的字符型数组能解决问题,但是觉得太麻烦,有什么简单的发法解决这个问题?

请高手帮忙!!!

[解决办法]
那就用数据组做中间对应表了.
dim abc() as long '或String
'假设你的有100个单位
redim abc(99)

添加时,你将单位添加到combox里,单号写到数组里.
数组索引号添加到itemdata里(不添加也可,直接用listindex对应)

[解决办法]
那只能用 WM_JAWIN 的方法了,如果比较常有封装成一个 UserControl 还是值得的