0

I'm trying to imitate the Windows 8 Start Menu preview'.

    Private Sub CornerHoverMouseOn() Handles CornerHover.MouseHover
        Dim CHL As Integer
        CHL = (Screen.PrimaryScreen.WorkingArea.Height - 100)
        CornerHover.Anchor = AnchorStyles.Bottom + AnchorStyles.Left
        CornerHover.Location = New Point(0, CHL)
        CornerHover.Height = 100
        CornerHover.Width = 50
        CornerHover.BackgroundImageLayout = ImageLayout.Stretch
        CornerHover.BackgroundImage = My.Resources.CornerHover
    End Sub

    Private Sub CornerHoverMouseOff() Handles CornerHover.MouseLeave
        Dim CHL As Integer
        Dim NewBackImage As System.Drawing.Image
        CHL = (Screen.PrimaryScreen.WorkingArea.Height - 50)
        CornerHover.Anchor = AnchorStyles.Bottom + AnchorStyles.Left
        CornerHover.Location = New Point(0, CHL)
        CornerHover.Height = 50
        CornerHover.Width = 25
        CornerHover.BackgroundImageLayout = ImageLayout.Stretch

    End Sub

I need to know how to remove the image frome the picturebox. I've tried dispose but that results into syntax errors.

Edited by pritaeas: Moved.

2
Contributors
2
Replies
11
Views
4 Years
Discussion Span
Last Post by IsaacMessi10
This question has already been answered. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.