VB ERRO HANDLER EVENT

SPYKER 03/07/2013 16:45:27
#425520

Public Sub jogo_abrir(ByVal sender As Object, ByVal e As EventArgs)
Dim nome As String = [Ô]a[Ô]

MsgBox(nome)

End Sub


Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
Dim saves(), paths, nome As String
Dim data_save As Date
Dim i As Integer = 1
Dim y_panel As Integer

saves = System.IO.Directory.GetDirectories([Ô]..\..\Saves[Ô])

For Each paths In saves
data_save = System.IO.Directory.GetLastWriteTime(paths)
Dim lb_jogos As New Label
Dim lb_data As New Label
Dim pb_jogos As New Panel

nome = paths.Replace([Ô]..\..\Saves\[Ô], [Ô][Ô])
pb_jogos.Name = [Ô]pb_save[Ô] & i

lb_jogos.Name = [Ô]lb_nome[Ô]
lb_jogos.Text = [Ô]Nick.: [Ô] & nome
lb_jogos.TextAlign = ContentAlignment.MiddleCenter
lb_jogos.Width = 380
lb_jogos.Location = New Point(lb_jogos.Location.X, 2)

lb_data.Name = [Ô]lb_data[Ô]
lb_data.Text = [Ô]Jogo guardado em: [Ô] & data_save
lb_data.TextAlign = ContentAlignment.MiddleCenter
lb_data.Width = 380
lb_data.Location = New Point(lb_data.Location.X, 24)

pb_jogos.Size = New Size(380, 50)
pb_jogos.BorderStyle = BorderStyle.FixedSingle
pb_jogos.Location = New Point(0, y_panel)
pb_jogos.Cursor = Cursors.Hand

painel_guardardos.Controls.Add(pb_jogos)
pb_jogos.Controls.Add(lb_jogos)
pb_jogos.Controls.Add(lb_data)

AddHandler pb_jogos.Click, AddressOf jogo_abrir

i = i + 1
y_panel = y_panel + 51
Next
End Sub

O pb_jogos que é um panel que vai sendo criado automaticamente, devia ser endereçãdo com o evento click para o sub jogo_abrir, mas o mesmo não acontece e gostaria de saber o porque de acontecer.

Cumprimentos
Ricardo Pereira