Problema VB6 + combobox

[fbo moreira 0]

Bom dia a todos,

 

Pessoal, estou com um problema que é o seguinte:

 

Eu populo o combobox com retorno do banco

 

cmbTipoEnvio.AddItem "< SELECIONE >"
		cmbTipoEnvio.ItemData(cmbTipoEnvio.ListCount - 1) = "0"
		While rs_temp.EOF = False
			cmbTipoEnvio.AddItem (RTrim(rs_temp!DESCRICAO) & " - R$ " & rs_temp!VALOR_CUSTO)
			cmbTipoEnvio.ItemData(cmbTipoEnvio.ListCount - 1) = rs_temp!id_custo_base_envio
			If rs_temp!id_custo_base_envio = id_custo_envio Then
				id_custo_envio = cmbTipoEnvio.ListCount - 1
			End If
			rs_temp.MoveNext
		Wend

depois tenho de deixar um selecionado e tento deste jeito

 

cmbTipoEnvio.ListIndex = Id_Custo_Envio

só que quando utilizo isto ele manda para a função click do objeto

 

Private Sub cmbTipoEnvio_Click()
...
...
...
End sub

mas nesta função do click ja esta programada para rodar somente quando for clicada,

 

Alguem sabe como eu consigo selecionar um index do combobox de outra forma

[Claudio Neto 3]

Deixar um selecionado? Se usar o cmbTipoEnvio.text não te resolve?