Vê se é isso que vc quer, assim ficará uma data embaixo da outra:
Private Sub Command1_Click()
Combo1.List(0) = Text1.Text
Combo1.List(1) = Text2.Text
End Sub
e assim ficará o intervalo de datas numa mesma linha com o "a" entre as datas
Private Sub Command1_Click()
Combo1.List(0) = (Text1.Text + " a " + Text2.Text)
End Sub
Espero ter ajudado.
Atenciosamente;
JOM
