getting close

#Region "Path Finding"

    Public OpenList As New List(Of Node)
    Public ClosedList As New List(Of Node)

    Public Structure State
        Dim X, Y As Integer
    End Structure

    Public Class Node

        Public Self As State 'the location of this node
        Public Parent As Node  'the location of this nodes parent
        Public F, G, H As Integer

        Sub Clear()
            Self.X = 0
            Self.Y = 0
            Parent = Nothing
            F = 0
            G = 0
            H = 0
        End Sub

        Sub GetScores(TargetX As Integer, TargetY As Integer)

            Dim dx, dy As Integer

            dx = Self.X - Parent.Self.X
            dy = Self.Y - Parent.Self.Y

            'check if movement type
            If dx = 1 And dy <> Self.Y Then
                G = 14 + Parent.G
            ElseIf dx = -1 And dy <> Self.Y Then
                G = 14 + Parent.G
            Else
                G = 10 + Parent.G
            End If

            'block-method heuristic (vertical/horizontal movement only)
            dx = Math.Abs(TargetX - Self.X)
            dy = Math.Abs(TargetY - Self.Y)

            H = (dx + dy) * 10

            'total score
            F = G + H

        End Sub

    End Class

    Public Sub Path(StartX As Integer, StartY As Integer, _
                    EndX As Integer, EndY As Integer)

        Dim CurrentX, CurrentY, intIndex As Integer
        Dim InList As Boolean = False
        Dim TempNode, LowNode As New Node

        'the first node in the closed list is the starting position
        With TempNode
            .self.x = StartX
            .self.y = StartY
            .parent = TempNode
            .GetScores(EndX, EndY)
        End With

        ClosedList.Add(TempNode)

        CurrentX = StartX
        CurrentY = StartY

        intIndex = 0

        Do While True

            If CurrentX = EndX And CurrentY = EndY Then

                For Each Node In ClosedList

                    'output the path (backwards i think?)
                    Write((intIndex + 2), 2, Node.Self.X, ConsoleColor.Green)
                    Write((intIndex + 3), 2, Node.Self.Y, ConsoleColor.Green)

                    intIndex = intIndex + 1

                    Console.ReadKey()
                    Console.Clear()

                Next

            Else

                'update tempnode to match the current x,y
                With TempNode
                    .Clear()
                    .Self.X = CurrentX
                    .Self.Y = CurrentY
                End With

                'add neighbors to the open list
                AddNeighbors(TempNode, EndX, EndY)

                'find the lowest node
                LowNode.F = 999999

                For Each Node In OpenList
                    If Node.F < LowNode.F Then
                        LowNode = Node
                    End If
                Next

                'remove from open list
                OpenList.Remove(LowNode)

                'check the closed list for this node
                For Each Node In ClosedList
                    If Node.Self.X = LowNode.Self.X And Node.Self.Y = LowNode.Self.Y Then
                        InList = True
                    End If
                Next

                'if its not in the list
                If Not InList Then

                    With LowNode
                        Write(2, 2, .Self.X & "," & .Self.Y, ConsoleColor.Green)
                        Write(3, 2, .F, ConsoleColor.Green)
                        Console.ReadKey()
                        Console.Clear()
                    End With

                    'add it to the list
                    ClosedList.Add(LowNode)

                    'set this node as the current node
                    CurrentX = LowNode.Self.X
                    CurrentY = LowNode.Self.Y

                End If

            End If
            '
        Loop

    End Sub

    'adds the neighbors of a cell to the open list
    Public Sub AddNeighbors(ThisNode As Node, TargetX As Integer, TargetY As Integer)

        Dim TempNode As New Node
        Dim LowNode As New Node
        Dim InList As Boolean = False

        Dim X, Y As Integer

        X = ThisNode.Self.X
        Y = ThisNode.Self.Y

        For intX = -1 To 1
            For intY = -1 To 1

                'if the node is inside the map boundries
                If Not (X + intX) < 0 Then
                    If Not (Y + intY) < 0 Then

                        'set positions
                        TempNode.Self.x = X + intX
                        TempNode.Self.y = Y + intY

                        'assign parent node
                        TempNode.Parent = ThisNode

                        'get this nodes scores
                        TempNode.GetScores(TargetX, TargetY)

                        'check the other two lists for this node
                        For Each Node In OpenList
                            If Node.Self.X = TempNode.Self.X And Node.Self.Y = TempNode.Self.Y Then
                                InList = True
                            End If
                        Next

                        'check the other two lists for this node
                        For Each Node In ClosedList
                            If Node.Self.X = TempNode.Self.X And Node.Self.Y = TempNode.Self.Y Then
                                InList = True
                            End If
                        Next

                        'add to the next open list if it's not already in either list
                        If Not InList Then
                            OpenList.Add(TempNode)
                        End If

                    End If
                End If

            Next
        Next


    End Sub

#End Region