Stuff

    Private Sub mnuHIncrease5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuHIncrease5.Click
        mnuPictureBox1.Checked = Not mnuPictureBox1.Checked
        sizCurrentWidth.Width = pctBox1.Size.Width
        shrCurrentWidth = sizCurrentWidth.Width
        If mnuPictureBox1.Checked = True Then
            shrCurrentWidth = shrCurrentWidth + 5
        End If
    End Sub