Menu toolstrip โดยใช้ select...case คลิกแล้วไม่เปิดหน้าให้คับ

Private Sub Toolbar_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles Toolbar.ItemClicked
        'Dim toolbar As ToolStripMenuItem = CType(sender, ToolStripMenuItem)
        Select Case toolbar.Name
            Case "ToolStripButton1"
                f_rent.Show()
            Case "ToolStripButton2"
                f_return.Show()
            Case "ToolStripButton3"
                f_hisrent.Show()


        End Select
    End Sub