Private  _stdImagePath As String = Application.StartupPath & "\Covers\" & _
  "nopic.jpg"
    Private _imagePath As String
 
 
 
    Public Property ImagePath() As String
        Get
            Return _imagePath
        End Get
        Set(ByVal Value As String)
            Dim img As Image
            _imagePath = Value
            If Not IO.File.Exists(_imagePath) Then
                img = Image.FromFile(_stdImagePath)
            Else
                img = Image.FromFile(_imagePath)
            End If
            Me.PictureBox1.Image = Nothing
            Me.PictureBox1.Image = img
        End Set
    End Property

Application.StartupPath & "\Covers\"