Partial Class ETGVideo
    Inherits System.Web.UI.UserControl

    'Variables.
    Private mstrAutoStart As String
    Private mstrHeight As String
    Private mstrWidth As String
    Private mstrPlayList As String
    Private mstrPlayListWidth As String
    Private mstrVideoURL As String
    Private mstrVideoImage As String
    Private mstrPlayerName As String

    <System.ComponentModel.Browsable(True)> _
<System.ComponentModel.Category("Behavior")> _
    Public Property AutoStart() As String

        Get

            'Check property.
            If mstrAutoStart = "" Then
                mstrAutoStart = "false"
            End If

            'Get property.
            Return mstrAutoStart

        End Get

        Set(ByVal value As String)

            'Set property.
            mstrAutoStart = value

        End Set

    End Property

    <System.ComponentModel.Browsable(True)> _
  <System.ComponentModel.Category("Behavior")> _
    Public Property PlayerName() As String

        Get

            'Check property.
            If mstrPlayerName = "" Then
                mstrPlayerName = "JWPlayer"
            End If

            'Get property.
            Return mstrPlayerName

        End Get

        Set(ByVal value As String)

            'Set property.
            mstrPlayerName = value

        End Set

    End Property


    <System.ComponentModel.Browsable(True)> _
   <System.ComponentModel.Category("Behavior")> _
    Public Property Height() As String

        Get

            'Check property.
            If mstrHeight = "" Then
                mstrHeight = "400"
            End If

            'Get property.
            Return mstrHeight

        End Get

        Set(ByVal value As String)

            'Set property.
            mstrHeight = value

        End Set

    End Property

    <System.ComponentModel.Browsable(True)> _
  <System.ComponentModel.Category("Behavior")> _
    Public Property Width() As String

        Get

            'Check property.
            If mstrWidth = "" Then
                mstrWidth = "640"
            End If

            'Get property.
            Return mstrWidth

        End Get

        Set(ByVal value As String)

            'Set property.
            mstrWidth = value

        End Set

    End Property

    <System.ComponentModel.Browsable(True)> _
 <System.ComponentModel.Category("Behavior")> _
    Public Property PlayList() As String

        Get

            'Check property.
            If mstrPlayList = "" Then
                mstrPlayList = ""
            End If

            'Get property.
            Return mstrPlayList

        End Get

        Set(ByVal value As String)

            'Set property.
            mstrPlayList = value

        End Set

    End Property

    <System.ComponentModel.Browsable(True)> _
<System.ComponentModel.Category("Behavior")> _
    Public Property PlayListWidth() As String

        Get

            'Check property.
            If mstrPlayListWidth = "" Then
                mstrPlayListWidth = "320"
            End If

            'Get property.
            Return mstrPlayListWidth

        End Get

        Set(ByVal value As String)

            'Set property.
            mstrPlayListWidth = value

        End Set

    End Property

    <System.ComponentModel.Browsable(True)> _
<System.ComponentModel.Category("Behavior")> _
    Public Property VideoURL() As String

        Get

            'Check property.
            If mstrVideoURL = "" Then
                mstrVideoURL = ""
            End If

            'Get property.
            Return mstrVideoURL

        End Get

        Set(ByVal value As String)

            'Set property.
            mstrVideoURL = value

        End Set

    End Property

    <System.ComponentModel.Browsable(True)> _
<System.ComponentModel.Category("Behavior")> _
    Public Property VideoImage() As String

        Get

            'Check property.
            If mstrVideoImage = "" Then
                mstrVideoImage = ""
            End If

            'Get property.
            Return mstrVideoImage

        End Get

        Set(ByVal value As String)

            'Set property.
            mstrVideoImage = value

        End Set

    End Property

End Class