Merhaba arkadaşlar
Yaptığım Programda Bir Text nesnesi var
Multiline özelliği açık
buraya programı kullanan birçok şey yazabiliyor.
tarih ata diye bir button koysam.text in içindeki yazıları silmeden sonuna tarih nasıl atayabiliriz.

Private Sub Command1_Click()
Text1.Text = Text1.Text & " Tarih :" & Date
End Sub
şeklinde denermisiniz.
dim a as string
a= txt1 '(burada value de gerekebilir. Örnek olsa denerdim)
txt1= a & " " & date()
(26/11/2013, 11:24)Coskun0559 yazdı:şeklinde denermisiniz.Private Sub Command1_Click()
Text1.Text = Text1.Text & " Tarih :" & Date
End Sub
Text1.Text = Text1.Text & " Tarih :" & Date & VbCrLf