| 12
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 
 |  
dim var as integer
dim WithEvents btn_suiv as Button
 
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
var = 10
  btn_suiv = New Button
                btn_suiv.Attributes.Add("id", "btn_suiv")
                btn_suiv.Attributes.Add("runat", "server")
                AddHandler btn_suiv.Click, AddressOf btn_suiv_Click
 
me.form1.controls.add(btn_suiv)
 
end sub
 
 
Public Sub btn_suiv_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btn_suiv.Click
        var = 12
 
    End Sub | 
Partager