Public Class formA
 
    Dim 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
End Class
 
 
Public Class formB
 
    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
 
End Class