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