Label1.caption = TimeLabel2.caption = Date
Private Sub Command1_Click()On Error Resume NextList1.AddItem Text1.Text - 1List1.AddItem Text2.Text - 1List1.AddItem Text3.Text - 1Error:End Sub