I did this :

I broke the one class with all my properties into 2 separate classes. The inner class inherits from the main class.

This is what I did :

Code:
Imports System.ComponentModel

Public Class comPicturePirate

    Private intAmountImages As Integer

    <Description("Number Of Images Contained"), _
    Category("Settings"), Browsable(True), Bindable(True)> _
    Public Property AmountImages() As Integer
        Get
            Return intAmountImages
        End Get
        Set(ByVal value As Integer)
            intAmountImages = value
        End Set
    End Property

End Class
Code:
Imports System.ComponentModel

Public Class comPicturePirateInner
    Inherits comPicturePirate

    Private strWebURL As String
    Private strPageName As String
    Private strPageTitle As String

    Public lstOutPutImage As Image

    Sub New()

    End Sub

    <Description("Contained Images"), _
    Category("Settings")> _
    Public Property Image() As Image
        Get
            Return lstOutPutImage
        End Get
        Set(ByVal value As Image)
            lstOutPutImage = value
        End Set
    End Property

    <Description("Website URL Where Image(s) Should Appear"), _
    Category("Settings"), Browsable(True), Bindable(True)> _
    Public Property WebURL() As String
        Get
            Return strWebURL
        End Get
        Set(ByVal value As String)
            strWebURL = value
        End Set
    End Property

    <Description("Page Name Where Image(s) Should Appear"), _
    Category("Settings"), Browsable(True), Bindable(True)> _
    Public Property PageName() As String
        Get
            Return strPageName
        End Get
        Set(ByVal value As String)
            strPageName = value
        End Set
    End Property

    <Description("Page Name Where Image(s) Should Appear"), _
    Category("Settings"), Browsable(True), Bindable(True)> _
    Public Property PageTitle() As String
        Get
            Return strPageTitle
        End Get
        Set(ByVal value As String)
            strPageTitle = value
        End Set
    End Property
End Class
And on the form I did :

Code:
    Private arrOutPutImages As comPicturePirateInner

    Private Sub picPPPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles picPPPreview.Click

        Dim frmProps As New frmPPProperties

        frmProps.prgPPProp.CommandsVisibleIfAvailable = True
        frmProps.prgPPProp.Text = "Images"
        frmProps.prgPPProp.SelectedObject = arrOutPutImages

        arrOutPutImages.Image = New Bitmap(lstPPImages.SelectedItem.ToString())
        arrOutPutImages.PageName = ""
        arrOutPutImages.PageTitle = ""
        arrOutPutImages.WebURL = ""

        frmProps.Show()

    End Sub
Thank you