[VB6]: Menu verticale in stile Outlook

[davfrata]

Era appunto il fatto che uso vb.net

Private Sub MenuVerticale1_MenuItemClick(ByVal sender As System.Object, ByVal e As AxMenuVert.__MenuVerticale_MenuItemClickEvent) Handles MenuVerticale1.MenuItemClick

        Select Case e.menuNumber
            Case 1
                Select Case e.menuItem
                    Case 1
                        MessageBox.Show("menu item 1")
                    Case 2
                        MessageBox.Show("menu item 2")
                End Select
            Case 2
                Select Case e.menuItem
                    Case 1
                        MessageBox.Show("menu item 2-1")
                End Select
        End Select
    End Sub

Ecco l'esempio funzionante

Ciao e grazie