[SIZE=2]ToolStrip1.Items.Add([/SIZE][SIZE=2][COLOR=#0000ff]New[/COLOR][/SIZE][SIZE=2] ToolStripControlHost([/SIZE][SIZE=2][COLOR=#0000ff]New[/COLOR][/SIZE][SIZE=2] DateTimePicker))
[/SIZE]
WithEvents dtp As New DateTimePicker
Private Sub Form1_Load(sender, e) Handles MyBase.Load
ToolStrip1.Items.Add(New ToolStripControlHost(dtp))
End Sub
Private Sub dtp_ValueChanged(sender, e) Handles dtp.ValueChanged
Me.Text = dtp.Value.ToString
End Sub