Dim mi As MenuItem = CType(sender, MenuItem)
        Debug.WriteLine("Clicked on: " + mi.Text)
        Select Case True
            Case mi Is Me.miFileOpen
                Dim ofd As New OpenFileDialog
                ofd.ShowDialog()
            Case mi Is Me.miClose
                Me.Close()
            Case mi Is Me.MenuItem3
                '// usw.
        End Select