Coloque un codigo dentro del otro sin querer el formulario donde lleno el combo queda asi:
Código vb:
Ver originalSub Inicializar()
Dim conex As New Conexion
conex.llenarCombo(ComboBox1, "select nombre from liga where codDeporte=1")
limpiar()
Bloquear(False)
End Sub