Visual Basic

Public Class AssemblyAttributes

  Private _assembly as Assembly

  Public Readonly Property Copyright as string
    Get
      Return GetCopyrightString
    End Get
  End Property

  Public Sub New(assembly As Assembly)
    _assembly = assembly
  End Sub

End Class

Private Sub GetAssemblyAttributes(assemblyName As String, ByRef sw As StreamWriter)

  Dim currentAssembly As Assembly

  Dim assemblyAttributes As New AssemblyAttributes(currentAssembly)
  Dim copyright As String = assemblyAttributes.Copyright 

End Sub

Dim currentAssembly As Assembly = Assembly.Load(name)

Dim currentAssembly As Assembly = Assembly.LoadFile(name)

Dim currentAssembly As Assembly = Assembly.LoadFrom(name)

Dim currentAssembly As Assembly = Assembly.GetExecutingAssembly

If e.Button = Windows.Forms.MouseButtons.Left AndAlso e.Clicks = 1 Then
            For Each selectedItem In selectedItems
                REM ---lsvRQLiveFeed.Items.Remove(selectedItem)
                REM ---lstDJFeed.Items.Add(selectedItem)
                txtITEM.Text = lsvRQLiveFeed.SelectedItems(0).Text

                My.Computer.FileSystem.WriteAllText("C:\Users\Pete\Desktop\DJ Sync\DJ Sync\test\REQUEST\" + txtITEM.Text, +"." + ".txt", False)

            Next

txtITEM.Text = lsvRQLiveFeed.SelectedItems(0).Text

Dim m_htmlBuilder As New StringBuilder
        With m_htmlBuilder
            .Append("<div style=""width: " & p_width & "; Height: " & p_height & "; text-align: center; margin: 0px auto; background-color: rgb(28,134,238);"">" & vbCrLf)
            .Append("   <span style=""color: rgb(255,255,255); font-size: 1.0em; font-weight: bold; line-height: " & p_height & ";"">" & vbCrLf)
            .Append(p_html_name & " is now ready for use" & vbCrLf)
            .Append("   </span>" & vbCrLf)
            .Append("</div>" & vbCrLf)
        End With

        Dim m_htmlStream As String = m_htmlBuilder.ToString

        Try

            Dim htmlLen As Long = m_htmlStream.Length
            Dim charArray As Char() = New Char(htmlLen) {}
            Dim byteArray() As Byte = New Byte() {}

            For cdx As Integer = 0 To htmlLen - 1
                charArray(cdx) = m_htmlStream(cdx)
                Dim charVal As Char = charArray(cdx)
                Array.Resize(byteArray, byteArray.Length + 1)
                byteArray(byteArray.Length - 1) = UTF8CharToByte(charVal)
            Next

            Using htmlStream = New FileStream(p_html_path, FileMode.Create, FileAccess.Write)
                Using writer As BinaryWriter = New BinaryWriter(htmlStream, Encoding.UTF8)
                    Dim [utf8] As Encoding = Encoding.UTF8
                    Dim preamble As Byte() = [utf8].GetPreamble()
                    writer.Write(preamble)
                    writer.Write(byteArray, 0, byteArray.Length - 1)

                    If Not (writer Is Nothing) Then
                        writer.Close()
                        writer.Dispose()
                    End If

                End Using

                If Not (htmlStream Is Nothing) Then
                    htmlStream.Close()
                    htmlStream.Dispose()
                End If

            End Using

Imports System.Configuration

<SettingsSerializeAs(Configuration.SettingsSerializeAs.Xml)> _
Public Class Profile
    Public Property Name As String
    Public Property ViewerCommand As String
    Public Property ViewerPath As String
    Public Property StartService As Boolean
    Public Property StopService As Boolean
End Class

<SettingsSerializeAs(Configuration.SettingsSerializeAs.Xml)> _
Public Class ProfileCollection
    Inherits CollectionBase

    Public Shadows Function Add(ByVal ProfileObject As Profile) As Profile
        MyBase.List.Add(ProfileObject)
        Return ProfileObject
    End Function

    Public Shadows Sub Remove(ByVal ProfileObject As Profile)
        MyBase.List.Remove(ProfileObject)
    End Sub

End Class