how do I add my textblock to my canvas?

			Dim w_label as New TextBlock
		    w_label.Width = 40
            w_label.Height = 25
			w_label.Padding = new Thickness(p, 25, 0, 0)
            w_label.Text = today.DayOfWeek.ToString.Substring(0, 3)
			canvas1.children.Add(w_label)