01-02-17, 04:33 AM
فكرت وفكرت وطلعت بذا الكود حيث اكتفيت ب 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
شكرا لكم جمييييع على تعاونكم ومساعدتكم لي