Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
Dim fs As System.IO.FileStream = New System.io.FileStream(OpenFileDialog1.FileName, System.IO.FileMode.Open)
Dim r As System.IO.BinaryReader = New System.IO.BinaryReader(fs)
Dim i, j, k As Integer
Dim working As String
For i = 0 To 15
k = 0
For j = 15 To 0 Step -1
working = DecimalToBinary(r.ReadByte())
working = working.PadLeft(5, "0")
maze(k, i, 1) = working.Substring(Len(working) - 1, 1)
maze(k, i, 2) = working.Substring(Len(working) - 2, 1)
maze(k, i, 3) = working.Substring(Len(working) - 3, 1)
maze(k, i, 4) = working.Substring(Len(working) - 4, 1)
maze(k, i, 5) = 0
maze(k, i, 6) = 0
k = k + 1
Next
Next
r.Close()
Me.Refresh()
End Sub