Visual Basic

' SHUT DOWN AND RESTART IN VB6
    Const EWX_LogOff As Long = 0
    Const EWX_SHUTDOWN = 1
    Const EWX_REBOOT = 2
    Const EWX_FORCE = 4
    Private Declare Function ExitWindows _
            Lib "User32" Alias "ExitWindowsEx" _
            (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long


    Private Sub Command1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
       
    Private Sub Command2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command2.Click
        ExitWindows(EWX_SHUTDOWN, &HFFFFFFFF)

    End Sub


    Private Sub Command3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command3.Click
        ExitWindows(EWX_REBOOT, &HFFFFFFFF)
    End Sub


    End Sub
End Class

Imports System.IO
Imports System.Data.OleDb

Public Class Form1

    Dim ITEM_FILE_PATH As String = ""
    Dim ITEM_FILE As String = ""
    Dim ITEM_LIST As String(,)
    Dim ITEM_LINE As String()
    Dim fs As FileStream
    Dim sR As StreamReader
    Dim frstComma As Integer = 0
    Dim thisLine As String = ""
    Dim NumLines As Integer = 0

    Private Sub ReadCSVFile()
        ITEM_FILE_PATH = Application.StartupPath & "\All_Item_Prices.csv"

        fs = New FileStream(ITEM_FILE_PATH, FileMode.Open)
        sR = New StreamReader(fs)

        sR.ReadLine()
        'ITEM_FILE = sR.ReadToEnd

        While sR.EndOfStream = False

            thisLine = sR.ReadLine
            NumLines += 1
            'MsgBox(thisLine)
            frstComma = InStr(thisLine, ",")
            thisLine = thisLine.Substring(frstComma, thisLine.Length - frstComma)
            frstComma = InStr(thisLine, ",")
            thisLine = thisLine.Substring(frstComma, thisLine.Length - frstComma)
            frstComma = InStr(thisLine, ",")
            thisLine = thisLine.Substring(frstComma, thisLine.Length - frstComma)
            'MsgBox(thisLine)
            Dim COMMAS As String = ",,"
            For i As Integer = 2 To 6
                'MsgBox(COMMAS)
                thisLine = Replace(thisLine, COMMAS, "")
                'MsgBox(thisLine)
                COMMAS &= ","
            Next
            'ITEM_FILE &= thisLine & vbNewLine
            'For iC As Integer = 0 To thisLine.Split(",").Count
            '    ITEM_LINE(iC) = thisLine.Split(",")(iC)
            'Next
            MsgBox(thisLine)
            MsgBox(thisLine.Split(",").Count)
            For iC As Integer = 0 To thisLine.Split(",").Count
                ITEM_LIST(iC, NumLines) = thisLine.Split(",")(iC)
                MsgBox(ITEM_LIST(iC, NumLines))
            Next

        End While

        sR.Close()
        fs.Close()

        'MsgBox(ITEM_FILE)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ReadCSVFile()

        For iCount As Integer = 0 To NumLines

            MsgBox(iCount)
            MsgBox(ITEM_LIST(0, iCount))

        Next

    End Sub

End Class