Aggiunta di separator ai menu

Devo aggiungere un sottomenu bianco...

Fatto: basta aggiungere un sottomenu senza specificare testo, o anche specificando una stringa vuota...
Come si aggiunge una linea sul menu? Mi sembra bello separare i sottomenu "pieni" da quello vuoto...

Dim separatore As New ToolStripSeparator
            mioMenu.Items.Add(separatore)
            sottomenu = New ToolStripMenuItem()
            sottomenu.Text = ""
            AddHandler sottomenu.Click, AddressOf Trascrivi
            mioMenu.Items.Add(sottomenu)

Aggiunti separatore e menu vuoto, e aggiustato il codice in modo che in caso di click sul menu vuoto non si faccia alcun calcolo...

    Sub CALCOLO()
        If mioMenu.Items(SelectedMenu).Text <> "" Then nomiGriglia.CelleDellaColonna(0)(SelectedMenu).BackColor = Color.Red
    End Sub

in effetti, un calcolo si deve fare, ma andiamo per gradi...