.NET (Core and Framework)

<asp:Content ContentPlaceHolderID="ContentPlaceholder" runat="server">
    <asp:UpdatePanel runat="server">
        <ContentTemplate>

      <asp:RadioButtonList runat="server" ID="rblStateSchool" RepeatDirection="Horizontal"
                                AutoPostBack="true">
                                <asp:ListItem Value="State" Text="State"></asp:ListItem>
                                <asp:ListItem Value="School" Text="School"></asp:ListItem>
                            </asp:RadioButtonList>
                            <asp:RequiredFieldValidator runat="server" ID="rfvStateSchool" ControlToValidate="rblStateSchool"
                                CssClass="errorMessage" ErrorMessage="* Required"></asp:RequiredFieldValidator>


   <telerik:RadComboBox ID="rcbGroups" CheckBoxes="true" AllowCustomText="false" runat="server"
                                DataValueField="GroupID" DataTextField="GroupName" Enabled="False" EnableViewState="true"
                                EmptyMessage="<Please Select>" Width="500px" EnableCheckAllItemsCheckBox="true"
                                AutoPostBack="true">
                                <ItemTemplate>
                                    <%# DataBinder.Eval(Container.DataItem, "GroupName")%>
                                    -
                                    <%# DataBinder.Eval(Container.DataItem, "GroupID")%>
                                    -
                                    <%# DataBinder.Eval(Container.DataItem, "ContractStateCode")%>
                                </ItemTemplate>
                            </telerik:RadComboBox>

jRUN = New messageSender()
Dim dwRCode As Integer = jRUN.messageSender(
    sJOBS(idx),
    G_JOB_TIMER
)

Public Class messageSender
    Inherits send_Message_Broadcast_Record
    Implements IDisposable

    Dim disposed As Boolean = False

    Public M_RUNNING As Boolean
    Public M_MAILINGLIST_ID As Integer
    Public m_EMAILS_SENT As Integer
    Public m_STOP As Boolean

    Private mJOB As structure_CRM_JOBS
    Private mList() As structure_MailingList_Array
    Private M_JOBTIMER As System.Timers.Timer    

    Public Function messageSender( _
        ByVal pJOB As structure_CRM_JOBS,
        ByRef P_JOBTIMER As System.Timers.Timer) As Integer

        Dim dwExitCode As Integer = 2

        Dim ms_Container As messageSender = New messageSender()
        ms_Container.mJOB = pJOB
        ms_Container.M_JOBTIMER = P_JOBTIMER
        ms_Container.m_STOP = False

        Dim eLoader As New email_address_loader()
        Dim e_count As Integer = eLoader.get_malingList_Count()
        ReDim ms_Container.mList(e_count - 1)

        eLoader.load_mailingList_Array(ms_Container.mList)

        If Not (M_JOBTIMER Is Nothing) Then
            M_JOBTIMER.Stop()
        End If

        Dim msThread As Thread = New Thread(New ThreadStart(AddressOf ms_Container.messageSender_Proc))
        msThread.Priority = ThreadPriority.Lowest
        msThread.IsBackground = True
        msThread.Start()
        msThread.Join()

        Return dwExitCode

    End Function

Public Shared Function install() As Integer

        Dim dwExitCode As Integer = 2

        Try
            Dim servicePath As String = Reflection.Assembly.GetExecutingAssembly.Location
            smtp_messenger.eventLog1.WriteEntry(servicePath, EventLogEntryType.Information, 1)

            Dim pathArray() As String = {servicePath}
            ManagedInstallerClass.InstallHelper(pathArray)

            dwExitCode = 0

        Catch ex As Exception
            dwExitCode = 1
            smtp_messenger.eventLog1.WriteEntry(ex.Message, EventLogEntryType.Information, 1)

        End Try


        Return dwExitCode

    End Function

eventLog1 = New System.Diagnostics.EventLog()
If (Not System.Diagnostics.EventLog.SourceExists(eventSourceName, "MyServer")) Then
  System.Diagnostics.EventLog.CreateEventSource(eventSourceName, logName)
End If

eventLog1.Source = eventSourceName
eventLog1.Log = logName

eventLog1.WriteEntry("Service has installed successfully", EventLogEntryType.Information, 1)

Dim strFilePath As String = Me.Context.Request.FilePath
        If (strFilePath.Contains(strFilePath.IndexOf("/Groups.aspx").ToString)) = True Then
            Menu2.Items(0).Selected = True
        ElseIf (strFilePath.Contains(strFilePath.IndexOf("/Reports.aspx").ToString)) = True Then
            Menu2.Items(2).Selected = True
            Menu2.Items(0).Selected = False
        Else : Menu2.Items(0).Selected = False

        End If