Hỏi về cách tạo sự kiện cho các Button. Khi các Button này được thêm tự động

[506509]

Xin chào cả nhà!
Hiện nay tôi lập trình đến đoạn tạo ra 1 loạt các Button băng cách chèn các Controls, nhưng tôi đang mắc ở chỗ là tôi muốn tạo các sự kiện Click cho các điều Button mới thêm này vào thì được. Xin hỏi trên diễn đàn có ai biết thì chỉ cho tôi với. Đoạn mã thêm Botton:
For i = 1 To m
Set bnt1 = Me.Controls.Add("Forms.commandbutton.1", "bnt0" & i)
bnt1.Top = 200 + (i - 1) * 20: bnt1.Left = 18
bnt1.Caption = i
bnt1.Width = 30
bnt1.Height = 20
bnt1.Font.Size = 10
bnt1.Name = "bnt0" & i
bnt1.ForeColor = vbRed
Next

 

[giaiphap]

Xin chào cả nhà!
Hiện nay tôi lập trình đến đoạn tạo ra 1 loạt các Button băng cách chèn các Controls, nhưng tôi đang mắc ở chỗ là tôi muốn tạo các sự kiện Click cho các điều Button mới thêm này vào thì được. Xin hỏi trên diễn đàn có ai biết thì chỉ cho tôi với. Đoạn mã thêm Botton:
For i = 1 To m
Set bnt1 = Me.Controls.Add("Forms.commandbutton.1", "bnt0" & i)
bnt1.Top = 200 + (i - 1) * 20: bnt1.Left = 18
bnt1.Caption = i
bnt1.Width = 30
bnt1.Height = 20
bnt1.Font.Size = 10
bnt1.Name = "bnt0" & i
bnt1.ForeColor = vbRed
Next

Bạn xem cái này của anh Tuân nè.

 

[506509]

Bạn xem cái này của anh Tuân nè.

Cám ơn bạn. Nhờ có bạn mà mình đã giải quyết được triệt để vấn đề.