如何循环控制多个Button的click事件

 

   Dim  MyButton( 50 )  As  Button 
         Dim  i  As   Integer   =   0  
         Dim  x  As   Integer   =   0  

         For  i  =   0   To   Me .Controls.Count  -   1   Step   1  
            MyButton(x)  =   Me .Controls(i) 
             AddHandler  MyButton(x).Click,  AddressOf   Me .Run 
            x  =  x  +   1  
         Next  

csdn上看到了 留存了