Visual Basic

Set PageRender = Server.CreateObject("MC.PageRenderer")

<Guid("3BFA03FD-B85D-48de-A9E8-FAE266B2D809"), _
       InterfaceType(ComInterfaceType.InterfaceIsIDispatch)> _
    Public Interface _PageRender
        <DispId(1)> Function ChooseContent(ByVal CalWidth As Integer, ByVal CalHeight As Integer) As String
        <DispId(2)> Function GetNews(ByVal Width As Integer, ByVal Heading As String, ByVal IsImage As Boolean) As String
        <DispId(3)> Property Action() As String
        <DispId(4)> Property SubCommand() As String
        <DispId(5)> Property ID() As Integer
    End Interface

<Guid("385AA220-84CD-4e25-A736-E3356C33F4A8"), _
       ClassInterface(ClassInterfaceType.None), _
       ProgId("MinistryCraft.PageRenderer")> _
    Public Class PageRenderer
        Implements _PageRender

        Public Property Action() As String Implements _PageRender.Action
            Get

            End Get
            Set(ByVal Value As String)

            End Set
        End Property

        Public Function ChooseContent(ByVal CalWidth As Integer, ByVal CalHeight As Integer) As String Implements _PageRender.ChooseContent
            Return CalWidth & "W x " & CalHeight & "H"
        End Function

        Public Function GetNews(ByVal Width As Integer, ByVal Heading As String, ByVal IsImage As Boolean) As String Implements _PageRender.GetNews

        End Function

        Public Property ID() As Integer Implements _PageRender.ID
            Get

            End Get
            Set(ByVal Value As Integer)

            End Set
        End Property

        Public Property SubCommand() As String Implements _PageRender.SubCommand
            Get

            End Get
            Set(ByVal Value As String)

            End Set
        End Property
    End Class

<br />
"Provider=vfpoledb;Data Source=C:\\DataDir;"<br />

					mainMedia = mainPlayer.newMedia(info.FilePath);<br />
					mainPlayer.stretchToFit = true;<br />
					mainPlayer.settings.autoStart = false;<br />
					mainPlayer.currentMedia = mainMedia;<br />
					mainPlayer.settings.volume = RegistryFacade.PlayerOptions.TrackVolume;<br />
<br />
					mainPlayer.BringToFront();	<br />
					<br />
					mainPlayer.Ctlcontrols.play();

Public Structure FtpSite
    Public Hostname As String
    Public Username As String
    Public Password As String
    Public Port As Integer
End Structure

Public Class UsesFtpSite

    Public Sub MyMethod()

        Dim al As New ArrayList

        Dim fs As New FtpSite

        fs.Hostname = "ftp.mysite.com"
        fs.Port = 21
        fs.Username = "user"
        fs.Password = "password"

        al.Add(fs)

    End Sub

End Class