'-------------------------------------------
'PRIVATE DATA MEMBERS FOR PUBLIC PROPERTIES
'-------------------------------------------
Private m_nWidth&, m_nHeight&
Private m_nAlignment&
Private m_nBackStyle&, m_bCentered As Boolean
Dim m_Picture As StdPicture   ' picture property variable
Dim m_URLPicture As String    ' URL picture property string variable
Dim ClearURLOnly As Boolean                     '
Dim ClearPictureOnly As Boolean                 '
Private Sub Class_Initialize()
    m_nAlignment = imgAlignNone
End Sub
'-------------------------------------------
'PUBLIC PROPERTIES
'-------------------------------------------
Public Property Get Alignment() As imgAlignmentStyles
    Alignment = m_nAlignment
End Property
Public Property Let Alignment(ByVal x As imgAlignmentStyles)
    m_nAlignment = x
End Property
                'OCX.AsyncRead Url, vbAsyncTypePicture, "InternalPic" &
sTag ' Begin async
download of picture file...
            Else
                Set Picture = Nothing
            End If
        End If
    End If
    Exit Property
'------------------------------------------------------------------
ErrorHandler:
    ClearPictureOnly = False
    ErrMsg "Image_UrlPicture Error"
End Property