Visual Basic

Select Case PictureBox36.Tag
Case "1" : PictureBox36.Image = mini1.Image
Case "2" : PictureBox36.Image = mini2.Image
Case "3" : PictureBox36.Image = mini3.Image
Case "4" : PictureBox36.Image = mini4.Image
Case "5" : PictureBox36.Image = mini5.Image
Case "6" : PictureBox36.Image = mini6.Image
Case "7" : PictureBox36.Image = mini7.Image
Case "8" : PictureBox36.Image = mini8.Image
Case "9" : PictureBox36.Image = mini9.Image
Case "10" : PictureBox36.Image = mini10.Image
Case "11" : PictureBox36.Image = mini11.Image
Case "12" : PictureBox36.Image = mini12.Image
Case "13" : PictureBox36.Image = mini13.Image
Case "14" : PictureBox36.Image = mini14.Image
Case "15" : PictureBox36.Image = mini15.Image
Case "16" : PictureBox36.Image = mini16.Image
Case "17" : PictureBox36.Image = mini17.Image
Case "18" : PictureBox36.Image = mini18.Image
Case "19" : PictureBox36.Image = mini19.Image
Case "20" : PictureBox36.Image = mini20.Image
Case "21" : PictureBox36.Image = mini21.Image
Case "22" : PictureBox36.Image = mini22.Image
Case "23" : PictureBox36.Image = mini23.Image
Case "24" : PictureBox36.Image = mini24.Image
Case "25" : PictureBox36.Image = mini25.Image
Case "26" : PictureBox36.Image = mini26.Image
Case "27" : PictureBox36.Image = mini27.Image
Case "28" : PictureBox36.Image = mini28.Image
Case "29" : PictureBox36.Image = mini29.Image
Case "30" : PictureBox36.Image = mini30.Image
Case "31" : PictureBox36.Image = mini31.Image
Case "32" : PictureBox36.Image = mini32.Image
Case "33" : PictureBox36.Image = mini33.Image
Case "34" : PictureBox36.Image = mini34.Image
Case "35" : PictureBox36.Image = mini35.Image
Case "36" : PictureBox36.Image = mini36.Image
Case "Else" : MsgBox("Neni" & PictureBox36.Tag)
End Select

K čemu přesně je tu využit tag?