.NET (Core and Framework)

'If (ListBox1.SelectedIndex = 0) Then<br />
        '    ConnString = "server=(local);Trusted_Connection=yes;database=290208ran6"<br />
        '    sql = "select ORIG_CALL_SETUP_SUCCESS from ran6 where MSC_NAME = '" + ComboBox1.SelectedItem + "' and RCS_ID = '" + ComboBox2.SelectedItem + "' and SECTOR = '" + ComboBox3.SelectedItem + "'"<br />
        '    connection.ConnectionString = ConnString<br />
        '    connection.Open()<br />
        '    command = New SqlCommand(sql, connection)<br />
        '    dr = command.ExecuteReader()<br />
        '    MsgBox("connection")<br />
        '    Dim st As Decimal<br />
        '    Dim a As Integer<br />
        '    a = 0<br />
        '    While dr.Read()<br />
        '        a = a + 1<br />
        '        MsgBox(dr(0).ToString())<br />
        '    End While<br />
        '    MsgBox(a)<br />
        '    Dim grid As Grid = New Grid()<br />
        '    grid.VerticalGridType = grid.GridType.Coarse<br />
        '    grid.HorizontalGridType = grid.GridType.Coarse<br />
        '    grid.MajorGridPen = New Pen(Color.LightGray, 1.0F)<br />
<br />
        '    plotSurfaceBalance.Add(grid)<br />
        '    Dim stepBalance As LinePlot = New LinePlot()<br />
        '    stepBalance.Pen = New Pen(Color.Black, 2)<br />
        '    ' //Create a bar plot instance for the percent chart.<br />
        '    Dim barPercent As BarPlot = New BarPlot()<br />
        '    barPercent.FillBrush = NPlot.RectangleBrushes.Solid.Black<br />
<br />
        '    '//Create the lists from which to pull data.<br />
        '    Dim balanceAxis As List(Of DateTime) = New List(Of DateTime)<br />
        '    Dim percentAxis As List(Of DateTime) = New List(Of DateTime)<br />
        '    Dim balanceAmount As List(Of Decimal) = New List(Of Decimal)()<br />
        '    Dim percentAmount As List(Of Decimal) = New List(Of Decimal)()<br />
<br />
<br />
        '    '//The following code populates the lists above with data.<br />
        '    '//data sources such as a database to populate the lists.<br />
<br />
        '    Dim startDate As DateTime = New DateTime(2000, 1, 1)<br />
        '    Dim balanceValues As Decimal() = New Decimal() { _<br />
        '  st, 99.3, 98.4}<br />
        '    ' //Add data to Xax datetime lists.<br />
        '    For i As Integer = 0 To 30<br />
<br />
        '        balanceAxis.Add(startDate.AddDays(i))<br />
<br />
        '    Next<br />
<br />
        '    '//Populate the balanceAmount list.<br />
        '    For Each value As Decimal In balanceValues<br />
        '        balanceAmount.Add(value)<br />
        '    Next<br />
<br />
        '    Dim top As List(Of Decimal) = New List(Of Decimal)<br />
        '    Dim bottom As List(Of Decimal) = New List(Of Decimal)<br />
<br />
        '    '//Set the datasource and the xax for the balance plot.<br />
        '    stepBalance.AbscissaData = balanceAxis<br />
        '    stepBalance.DataSource = balanceAmount<br />
<br />
        '    ' //Add stepBalance to plotSurfaceBalance.<br />
        '    plotSurfaceBalance.Add(stepBalance)<br />
<br />
        '    '  //Balance plot general settings.<br />
        '    plotSurfaceBalance.ShowCoordinates = True<br />
        '    plotSurfaceBalance.YAxis1.Label = ""<br />
        '    plotSurfaceBalance.YAxis1.LabelOffsetAbsolute = True<br />
        '    plotSurfaceBalance.YAxis1.LabelOffset = 30<br />
        '    plotSurfaceBalance.XAxis1.HideTickText = True<br />
        '    plotSurfaceBalance.Padding = 2<br />
<br />
        '    ' //Align percent plot axes.<br />
        '    Dim ax As DateTimeAxis = New DateTimeAxis(plotSurfaceBalance.XAxis1)<br />
        '    ax.HideTickText = False<br />
        '    '  //Refresh surfaces.<br />
        '    plotSurfaceBalance.Refresh()<br />
        '    connection.Close()<br />
        '    MsgBox("connection closed")<br />