private sub Add() with skigil .name="Skigil" .text="Skigil" .location=new point(100,100) .size=new size(50,50) .parent=me .show end with AddHandler skigil.click, AddressOf skigil_click end sub
Private Sub skigil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) '在此添加点击button实现的代码 '以下代码删掉button并移除handler RemoveHandler skigil.click, AddressOf skigil_click skigil.dispose End Sub