Public Class Form1
    Private WithEvents Ms As New MenuStrip With {.Parent = Me}
    Private WithEvents NUpDown As New NumericUpDown
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Ms.Items.Add(New ToolStripControlHost(NUpDown))
    End Sub  
End Class