[اليوم مبتدئة وغداً محترفة]

فكرت وفكرت وطلعت بذا الكود حيث اكتفيت ب Case واحد وخليته b.name

كود :

 Private Sub pic_click(sender As Object, e As EventArgs)

       Dim b As PictureBox = CType(sender, PictureBox)

       Select Case b.Name

           Case b.Name
               MsgBox(b.Name)

       End Select
   End Sub

شكرا لكم جمييييع على تعاونكم ومساعدتكم لي