Module Module1
    Dim f As Form1
    Property setform() As Form
        Get
            Return f
        End Get
        Set(ByVal Value As Form)
            f = Value
        End Set
    End Property
    Sub settext(ByVal s As String, Optional ByVal f As Form = Nothing)
        If Not f Is Nothing Then setform = f
        f.Text = s
    End Sub
End Module
' IN FORM
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button1.Click
        setform = Me
        settext("Hallo Welt")
' ODER SO
        settext("Hallo Welt", Me)
    End Sub