Option Strict On
Imports System.Drawing.Drawing2D
Public Class Form1

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Select Case ListBox1.SelectedIndex
            Case 0

            Case 1
                Dim p As New GraphicsPath
                p.StartFigure()
                p.AddLines(New Point() {New Point(0, 0), New Point(100, 0), New Point(100, 80), New Point(40, 70)})
                p.CloseFigure()
                Me.PictureBox1.Region = New Region(p)
        End Select
    End Sub
End Class
こんなプログラムでCase 0の時にPictureBox1を元の状態に初期化したいんですが。
教えてください。

「元の状態」がどんなのか分かりませんが、PictureBox の Region を削除したいなら PictureBox の Region プロパティに Nothing を代入すればいいです。