Adding date and string to lisbox

[peterhinett]

I have a text box, a calender and a listbox on a form. i want to be able to select the date from the calender, type numbers in the text box and click add. i then want it to display the date then the number entered into the listbox. I have the following code which validates the text box so that only numbers can be added. How can I add to this. Thanks

If IsNumeric(txtentreading.Text) = True Then
lbreading.Items.Add(txtentreading.Text)
txtentreading.Clear()

Else

MessageBox.Show("Invalid gas meter reading. You must enter digits", "Message", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
txtentreading.Clear()
txtentreading.Focus()

[kadghar]

I have a text box, a calender and a listbox on a form. i want to be able to select the date from the calender, type numbers in the text box and click add. i then want it to display the date then the number entered into the listbox. I have the following code which validates the text box so that only numbers can be added. How can I add to this. Thanks

use de DateAdd function, d is for days, something like this should do:

dim Dat1 as date 'lets say you save here what you got from the calendar
msgbox (dateadd("d", textbox1.text, dat1))

HTH