ช่วยหน่อยครับๆๆช่วยอธิบายเกี่ยวกับหลักการทำงานของโปรแกรมให้ผมหน่อยครับๆๆๆ

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i, j As Integer
        Dim TravelSolutionStr As String = ""
        Dim SourcePlace, DestinationPlace As Integer
        Dim nPlace As Integer = 10
        Dim TravelTable(,) As String = {{"", "25 40 รถไฟฟ้า", "38 รถไฟฟ้า", "รถไฟฟ้า", "25 40 รถไฟฟ้า", "", "", "", "25 40", "ปอ.508"},
                                        {"25 40 รถไฟฟ้า", "", "38 รถไฟฟ้า", "รถไฟฟ้า", "", "", "", "", "25 40", "ปอ.508"},
                                        {"38 รถไฟฟ้า", "38 รถไฟฟ้า", "", "8 รถไฟฟ้า", "36 34 ปอ.29 รถไฟฟ้า", "34 ปอ.29", "34", "34 ปอ.29", "ปอ.29", "39"},
                                        {"38 รถไฟฟ้า", "38 รถไฟฟ้า", "38 รถไฟฟ้า", "", "รถไฟฟ้า", "34 ปอ.29", "34", "34 ปอ.29", "34 ปอ.29", ""},
                                        {"25 40 ปอ.508 รถไฟฟ้า", "25 40 ปอ.508 รถไฟฟ้า", "รถไฟฟ้า", "34 ปอ.29 รถไฟฟ้า", "", "", "", "", "", "ปอ.511"},
                                        {"", "", "34 ปอ.29", "34 ปอ.29", "", "", "34", "34 ปอ.29", "34 ปอ.29", "39"},
                                        {"", "", "34", "34", "34", "", "", "34 ปอ.29", "34 ปอ.29", "39"},
                                        {"", "", "34 ปอ.29 39", "ปอ.29", "ปอ.29", "ปอ.29 39", "ปอ.29 39", "", "34 ปอ.29", "39"},
                                        {"25 40", "25 40", "34 ปอ.29", "34 ปอ.29", "34 ปอ.29", "34 ปอ.29", "34 ปอ.29", "34 ปอ.29", "", ""},
                                        {"ปอ.511", "ปอ.511", "39", "", "ปอ.511 47", "39", "", "39", "", ""}}


        Dim PlaceName() As String = {"เอกมัย", "อโศก", "อนุสาวรีย์ชัยฯ", "จตุจักร", "สยาม", "รังสิต", "เกษตร", "ดอนเมือง", "หัวลำโพง", "สนามหลวง"}

        For i = 0 To TbbusDataGridView.RowCount - 1
            For j = 0 To TbbusDataGridView.ColumnCount - 1

            Next
        Next
        Dim SourcePlaceStr As String = TextFrom.Text
        Dim DestinationPlaceStr = TextTo.Text
        SourcePlace = 0
        DestinationPlace = 0
        For i = 0 To nPlace - 1
            If SourcePlaceStr = PlaceName(i) Then
                SourcePlace = i
                Exit For
            End If
        Next
        For i = 0 To nPlace - 1
            If DestinationPlaceStr = PlaceName(i) Then
                DestinationPlace = i
                Exit For
            End If
        Next
        TravelSolutionStr += "จาก" + SourcePlaceStr + "ไป" + DestinationPlaceStr & vbNewLine & vbNewLine

        If TravelTable(SourcePlace, DestinationPlace) <> "" Then
            TravelSolutionStr += "1 ต่อ" & vbNewLine
            TravelSolutionStr += PlaceName(SourcePlace) + "ไป" + PlaceName(DestinationPlace) + "โดยใช้รถสาย"
            TravelSolutionStr += TravelTable(SourcePlace, DestinationPlace) & vbNewLine & vbNewLine
        End If

        For i = 0 To nPlace - 1
            If TravelTable(SourcePlace, i) <> "" And TravelTable(i, DestinationPlace) <> "" Then
                TravelSolutionStr += "2 ต่อ" & vbNewLine
                TravelSolutionStr += PlaceName(SourcePlace) + "ไป" + PlaceName(i) + "โดยใช้รถสาย"
                TravelSolutionStr += TravelTable(SourcePlace, i)
                TravelSolutionStr += "จาก" + PlaceName(i) + "ไป" + PlaceName(DestinationPlace) + "โดยใช้รถสาย"
                TravelSolutionStr += TravelTable(i, DestinationPlace) & vbNewLine & vbNewLine
            End If
        Next
        TextBox1.Text = TravelSolutionStr

        'For i = 0 To nPlace - 1
        'If TravelTable(SourcePlace, i) <> "" And TravelTable(i, j) <> "" And TravelTable(j, DestinationPlace) <> "" Then
        'TravelSolutionStr += "3 ต่อ" & vbNewLine
        'TravelSolutionStr += PlaceName(SourcePlace) + "ไป" + PlaceName(i) + "โดยใช้รถสาย"
        ' TravelSolutionStr += TravelTable(SourcePlace, i)
        'TravelSolutionStr += "จาก" + PlaceName(i) + "ไป" + PlaceName(j) + "โดยใช้รถสาย"
        'TravelSolutionStr += TravelTable(i, j) & vbNewLine
        'TravelSolutionStr += "จาก" + PlaceName(j) + "ไป" + PlaceName(DestinationPlace) + "โดยใช้รถสาย"
        'TravelSolutionStr += TravelTable(j, DestinationPlace) & vbNewLine
        'End If
        'Next

    End Sub

End Class