Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

        picture_clear()

        If ListBox1.SelectedIndex = 0 Then Return

        picture(ListBox1.SelectedIndex - 1).Visible = True

        Using reder As New StreamReader(txt(ListBox1.SelectedIndex - 1))

            TextBox1.Text = reder.ReadToEnd

        End Using

    End Sub