ToolStrip1

Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
Select Case e.ClickedItem.Name
Case "TSB_SELECT"
Call PA001H_SELECT()
Case "TSB_SAVE"
'Call Save()
Case "TSB_INSERT"
Call PA001H_INSERT()
Case "TSB_DELETE"
Call PA001H_DELETE()
Case "TSB_UPDATE"
Call PA001H_UPDATE()
Case "TSB_CLOSE"
Me.Close()
Case "TSB_HOR"
Me.SplitContainer1.Orientation = Orientation.Horizontal
Me.SplitContainer1.SplitterDistance = Me.GroupBox1.Top + Me.GroupBox1.Height + 5
Case "TSB_VOR"
Me.SplitContainer1.Orientation = Orientation.Vertical
Me.SplitContainer1.SplitterDistance = Me.GroupBox1.Left + Me.GroupBox1.Width + 5
End Select
End Sub