5.ci olarakta kodlar Private Sub ListBox1_Change() içine yazılacak Private Sub ListBox1_CLick yerine()
Her neyse üstad dosyayı ekliyorum.
Düzeltme kapatma olayını iptal emişsiniz set dict = nothing kodlarını ana sayfa butonlarına ekledim.