Eventi fra due form

Public Class Form1

    Private Sub Form1_Load() Handles MyBase.Load
        AddHandler Form2.evento, AddressOf imposta_label
        Form2.Show()
    End Sub

    Private Sub imposta_label(ByVal testo As String)
        Label1.Text = testo
    End Sub
  
End Class

Public Class Form2
    Public Event evento(ByVal testo As String)

    Private Sub Button1_Click() Handles Button1.Click
        RaiseEvent evento(TextBox1.Text)
    End Sub
End Class