combox里的下拉列表 问题

比如 combo1的项有"http://aa"
"http://cc"我想实现
在 Private Sub combo1_KeyPress(KeyAscii As Integer)
end sub
这个事件的时候 
把   "http://aa"
 替换成 "aa"因为做比较时需要这样
Getitem = Replace(combo1.List(n), "http://", "")
以便在SendMessagebyString 找出正确的选项
n = SendMessagebyString(cmbAdd.hWnd, CB_FINDSTRING, -1, strTmp)
但是你点 combo1下拉的时候还是显示  "http://aa"该如何实现这个功能？