Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load AddHandler Button1.Click, New EventHandler(AddressOf Me.ButtonClick) AddHandler Button2.Click, New EventHandler(AddressOf Me.ButtonClick) AddHandler Button3.Click, New EventHandler(AddressOf Me.ButtonClick) End Sub
Private Sub ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Dim A As String AA = CType(sender, Control).Text Me.Text = AA End Sub
