Multi select list box to formatted text box

[indesisiv]

I am using access 97 and am having a minor problem with a list box.

I have a multi select list box that as each item is selected places that into a text box. This is only there to allow the user to input the data without typing.

I am using the following code:
Private Sub lst1_AfterUpdate()
Dim ISel As Integer, I As Integer
Dim listvalues
listvalues = ""
ISel = 0
With lst1
For I = 0 To .ListCount - 1
If .Selected(I) Then
listvalues = listvalues & ". " & Me.lst1.Column(0, I)
ISel = ISel + 1
End If
Next I
End With

Me.txtList = listvalues
End Sub



What i need it to do is. ...
1) Auto resise the text box to fit the number of rows of information.
2) Bullet point the information in the text box.


Any help will be gratefully recieved

Steve