Private im As Image   
Private imPath As String
Public WriteOnly Property ImageFormPath() As String
        Set(ByVal value As String)
            im = Image.FromFile(value)
        End Set
End Property
Public WriteOnly Property Images() As Image
        Set(ByVal value As Image)
            im = value
        End Set
End Property