Dim txt As New TextBox
txt.Cursor = Cursors.Arrow
txt.Font = New Font("Microsoft Sans Serif", 15)
txt.Width = 120
Dim nm As New NumericUpDown
nm.Size = New Size(17, 20)
nm.Location = New Point(txt.Width - nm.Width - 2, -2)
txt.Text = Now.ToLongTimeString
txt.Controls.Add(nm)
Me.Controls.Add(txt)