Public Class formA
 
    Dim WithEvents myFormB As New formB With {.Owner = Me}
 
    Public Sub SuchenText(ByVal Suchtext As String)
        MsgBox("Ich soll " & Suchtext & " suchen? Vergiss es ...")
    End Sub
 
    Private Sub formA_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
        myFormB.Show()
    End Sub
 
    Private Sub myFormB_SuchenTextClick(Suchtext As String) _
        Handles myFormB.SuchenTextClick
        SuchenText(Suchtext)
    End Sub
End Class
 
Public Class formB
 
    Public Event SuchenTextClick(ByVal Suchtext As String)
 
    Private Sub Button1_Click(sender As System.Object, _
        e As System.EventArgs) Handles Button1.Click
 
        CType(Me.Owner, formA).SuchenText("Spaghetti mit Tomatensosse")
    End Sub
 
    Private Sub Button2_Click(sender As System.Object, _
        e As System.EventArgs) Handles Button2.Click
 
        RaiseEvent SuchenTextClick("Gemüsesuppe")
    End Sub
End Class