[dr.programming]

داخل اجراء كحدث كليلك لزر 
تضع الكود التالى لينشء فورم جديدة و فى وضع التشغيل 

كود :

Dim frmNew As New Form
       Dim Label2 As New Label()
       frmNew.Controls.Add(Label2)
       Dim tmr As New System.Windows.Forms.Timer
       AddHandler tmr.Tick, AddressOf tmr_Tick
       tmr.Tag = New Tuple(Of Control, Control)(frmNew, Label2)
       tmr.Interval = 1000
       tmr.Start()
       frmNew.Text = Date.Now
       Label2.Text = Date.Now
       frmNew.Show()