Visual Basic

Option Explicit
Private Declare Function Initialize Lib "C:\Documents and Settings\My Documents\NSGA2.dll" (Ret1() As Double, Ret2() As Double)
Private Sub Command1_Click()
Dim Inputarrays(14) As Double
Dim DVArray() As Double

For i = 0 To 13
    Inputarrays(i) = Text1(i).Text 'Takes the values from the form where there are 14 inputs
Next i

ReDim DVArray(Inputarrays(4) - 1, Inputarrays(0) - 1)

Call Initialize(Inputarrays, DVArray)
End Sub

Public Class Form1
Private Declare Function Initialize Lib "C:\Documents and Settings\My Documents\NSGA2.dll" (ByVal Ret1() As Double, ByVal Ret2(,) As Double)
Private Sub btnRun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRun.Click
        Dim InputArray(13) As Double
        Dim i As Integer
        Dim FileName As String
        Dim DVArray(,) As Double

        Call GetInput(InputArray)    'Calls a Sub which takes the values from the form where there are 14 inputs        
        ReDim DVArray(InputArray(4) - 1, InputArray(0) + InputArray(1) - 1)

Call Initialize(InputArray, DVArray)
End Sub

Private Sub btnOpenCSV_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpenCSV.Click
        ofdOpenCSV.Filter = "All CSV Files|*.csv;"
        If ofdOpenCSV.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Dim strPathString As String
            Dim strTestString As String = ""
            Dim strArrString As String()
            Dim strCSVRollNumber, strCSVRFIDNumber As String

            strPathString = ofdOpenCSV.FileName.ToString

            Dim myStream As System.IO.StreamReader
            myStream = File.OpenText(strPathString)
            Try
                While myStream.Peek() <> -1
                    strTestString = myStream.ReadLine()
                    strArrString = strTestString.Split(",")
                    lstCSVListBox.Items.Add(strArrString(0).ToString & " :: " & strArrString(1).ToString)
                                        
                End While
            Catch ex As Exception

            End Try
            btnOpenCSV.Enabled = False
            lblCSVSuccesful.Text = "File has been loaded."
            
        End If
    End Sub
    
    Private Sub btnOpenAPI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpenAPI.Click
        ofdOpenAPI.Filter = "All CSV Files|*.csv;"
        If ofdOpenAPI.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Dim strPathString As String
            Dim strArrString As String()
            Dim strTestString As String = ""
            Dim strAPIRollNumber, strAPIRFIDNumber As String

            strPathString = ofdOpenAPI.FileName.ToString
            
            Dim myStream As System.IO.StreamReader
            myStream = File.OpenText(strPathString)
            Try
                While myStream.Peek() <> -1
                    strTestString = myStream.ReadLine()
                    strArrString = strTestString.Split(",")
                    strAPIRollNumber = strArrString(1).ToString
                    strAPIRFIDNumber = strArrString(2).ToString
                    lstAPIListBox.Items.Add(strArrString(0).ToString & " :: " & strArrString(1).ToString)
                End While
            Catch ex As Exception

            End Try
            btnOpenAPI.Enabled = False
            lblAPISuccesful.Text = "File has been loaded."

        End If
    End Sub
    
    Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
        
        'WHAT SHOULD I PUT HERE?
        
    End Sub

<br />
CultureInfo myCulture = new CultureInfo("en-US");<br />
myCulture.DateTimeFormat.ShortDatePattern = "MM/dd/yyyy";<br />
Application.CurrentCulture = myCulture;<br />