Sub Globals
Dim SvActiveJobs As ScrollView
Dim btnNotes As Button
end sub
.
.
.
Sub btnAdd_Click
btnNotes.Initialize("")
btnNotes.Text = "Test"
btnNotes.Tag = DateTime.Time(DateTime.Now)
svActiveJobs.Panel.AddView(btnNotes,5,iTop,50dip,50dip)
iTop = iTop + 60
End Sub
.
.
.
Sub btnNotes_Click
Msgbox("tag " & btnNotes.Tag,"")
End Sub