[سؤال] كيف أكتبها ب Function - نسخة قابلة للطباعة

كود :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ' يستدعى الدالة ويرسل لها ثلاث معطيات ويعود بالنتيجة إما صح أو خطأ ويضعه في متغير

        Dim result As Boolean = abc(Me.TextBox1.Text, Me.TextBox2.Text, Me.TextBox3.Text)

        ' هل النتيجة هي صح

        If result Then

            MsgBox("تنفيذ الشرط")

        Else ' إذا النتيجة خطأ

            MsgBox("لا تنفذ الشرط")

        End If

    End Sub

    ' دالة لها ثلاث معطيات

    Private Function abc(ByVal t1 As String, ByVal t2 As String, ByVal t3 As String) As Boolean

        ' هل المعطيات لها القيم المحددة

        If t1 = "أمر1" And t2 = "أمر2" And t3 = "أمر3" Then

            Return True ' إرجاع بالنتيجة صح

        Else ' إذا كانت  المعطيات ليس لها القيم المحددة

            Return False ' إرجع بالنتيجة لا

        End If

    End Function

End Class

كود :

[align=left]  If TextBox1.Text = "أمر 1" And TextBox2.Text = "أمر2" And TextBox3.Text = "أمر 3" Then

            MsgBox("نفذ")

        Else

            MsgBox("لا تنفذ")

        End If[/align]