Visual Basic - Como puedo hacer esto?, un control como parametro?

digamos que quiero hacer lo siguiente:
.

Private function Mi_Funcion(Mi_Control as <tipo_de_parametro>)

Select Case Mi_Control
case <ComboBox>
'.........hacer algo si es un combobox
case <TextBox>
'.........hacer algo si es un textbox
case <ListBox>
'.........hacer algo si es un listbox
case <CheckBox>
'.........hacer algo si es un checkbox
End Select

End Function
.

Hay alguna forma de hacerlo? (En Visual Basic 6)

Haber talvez no te sirva, no se que es lo que quieres hacer relamente, pero yo preguntaria algo asi:

Private function Mi_Funcion(Mi_Control as <tipo_de_parametro>)

if combox.text <> "" then
osea si hay lago dentro del combobox entonces hago algo ......
end if

if text1.text <> "" then
osea si hay lago dentro del textbox entonces hago algo ......
end if

End Function

otra opcion seria preguntando cual de los controles esta visible en el formulario:

osea

if combobox.visible = true then
hago algo aqui dentro
end if

if text1.text.visible = true then
hago algo aqui dentro
end if

Bueno saludos...julio santa fe