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.