Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim tempPoints As New Point
        tempPoints.X = Button4.Location.X
        tempPoints.Y = Button4.Location.Y + Button4.Size.Width / 2 - 5
        ContextMenuStrip1.Show(Button4, tempPoints)
    End Sub