Reading information from INI file - VB 2010

See more:

VB

VB10

text

Hi, beginner VB user here.

There's an INI file that I want to access and read information from. This is the complete content of the file in question: http://www.heypasteit.com/clip/0C3Q[^]

My form has a bunch of comboboxes, trackbars and checkboxes. These items needs to be filled by the information taken from the INI file.

Here's how the INI file is formatted;

...
[Display]
bCrosshairEnabled=1
bDoDepthOfField=0
bFXAAEnabled=1
uiMaxSkinnedTreesToRender=10
iSize H=720
iSize W=1280
[Controls]
bGamepadEnable=1
...

What I want is make my form items reflect the values in the INI file. For instance,I want CheckBox8 in my form to get checked if bFXAAEnabled has a value of "1" and unchecked if it is "0" vice versa...

So far I couldn't find a way to do it can you please provide me a solution?.
I'm using Visual Basic 2010 and I'm such a noob at VB programming so please explain your code if possible.
Thanks in advance.

UPDATE 1
OK I found this solution

Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Text.RegularExpressions
Imports System.IO
Dim fName As String = (dir + "\My Games\Skyrim\SkyrimPrefs.ini")              'path to text file
Dim testTxt As New StreamReader(fName)
Dim allRead As String = testTxt.ReadToEnd()     'Reads the whole text file to the end
testTxt.Close()                'Closes the text file after it is fully read.
Dim regMatch As String = "bCrosshairEnabled"

If Regex.IsMatch(allRead, regMatch) Then                  'If the match is found in allRead
    'DO SOMETHING
Else
    'DO SOMETHING ELSE
End If

Now if only i could find a code that does something according to value comes after "=".
Such as:

If bCrosshairEnabled="1" then
'DO THIS
ELSE
'DO THAT
End if

UPDATE 2
Can anybody tell me how to combine this code with the one above to create a solution to my problem?

'Reads each line from the text file one at a time
    For Each line As String In IO.File.ReadLines("text file path")

        'split the string by equals sign
        Dim ary As String() = line.Split("="c)

        'Check the data type of the string we collected is inline with what we are expecting, e.g. numeric
        If IsNumeric(ary(1)) Then

            'create key value pair: the string before the equals and the number after it
            'e.g.
            'key = "valuexyz" | value = "36""
            Dim valuePair As New KeyValuePair(Of String, Integer)(ary(0), CInt(ary(1)))

            'obtain the string after the equals sign
            Dim value As Integer = CInt(ary(1))

            'based on the value after the equals sign, do something
            Select Case value
                Case 1
                    ' do something using..
                    'valuePair.Key - this is the string before the equals
                    'valuePair.Value - this is the string after the equals
                Case 2
                    ' do something using..
                    'valuePair.Key - this is the string before the equals
                    'valuePair.Value - this is the string after the equals
                Case Else
                    ' do something using..
                    'valuePair.Key - this is the string before the equals
                    'valuePair.Value - this is the string after the equals
            End Select

        End If

    Next