Public Class Vykresleni
    Private Sub Vykresleni_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.Width = (sirka + 1) * 40 + 15
        Me.Height = (vyska + 1) * 40 + 75
        Panel1.Width = (sirka + 1) * 40
        Panel1.Height = (vyska + 1) * 40
        Panel1.Top = 5
        Panel1.Left = 5
    End Sub

    Private Sub Vykresleni_FormClosed(sender As System.Object, e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
        Application.Exit()
    End Sub
    Private Sub nakreslipole()
        Dim malba As Graphics = Panel1.CreateGraphics
        malba.Clear(Color.White)
        For i As Integer = 0 To sirka
            For j As Integer = 0 To vyska
                Dim obrazek As Image
                Select Case mapa(j, i)
                    Case "."
                        obrazek = My.Resources.free
                    Case "X"
                        obrazek = My.Resources.wall
                    Case "&"
                        obrazek = My.Resources.free
                    Case "#"
                        obrazek = My.Resources.TV
                    Case Else
                        obrazek = My.Resources.free
                End Select
                malba.DrawImage(obrazek, New Point(i * 40, j * 40))
                malba.DrawRectangle(Pens.Black, i * 40, j * 40, 39, 39)
            Next
        Next
    End Sub

    Private Sub Vykresleni_Shown(sender As System.Object, e As System.EventArgs) Handles MyBase.Shown
        Application.DoEvents()
        nakreslipole()
        placnidamu(tahy.Item(tahy.Count - NumericUpDown1.Value))
        NumericUpDown1.Maximum = max
        Label1.Text = "Délka: " & max
    End Sub
    Private Sub placnidamu(kam() As Integer)
        Dim malba As Graphics = Panel1.CreateGraphics
        malba.DrawImage(My.Resources.lady, New Point(kam(1) * 40, kam(0) * 40))
        malba.DrawRectangle(Pens.Black, kam(1) * 40, kam(0) * 40, 39, 39)
    End Sub

    Private Sub NumericUpDown1_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NumericUpDown1.ValueChanged
        nakreslipole()
        placnidamu(tahy.Item(tahy.Count - NumericUpDown1.Value))
    End Sub
End Class