Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim buttonctrl As Button = sender
Label1.Text = sender.GetType.FullName + "," + buttonctrl.Name
End Sub
Private Sub Form_Load()
Dim x As Object
For Each x In Form1
Debug.Print x.Name
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024