[مهموم]

السلام عليكم ورحمة الله

أخي اسلام

أرجو أن يكون هذا الكود هو المطلوب

PHP كود :

Private Sub Command1_Click()

    NNN = Val(Text1.Text)

    Print "NNN  "; NNN

    Call FUNC()

    REM"المفروض بالجملة السابقة يتوجه الى FUNC1  أو الى FUNC2  حسب قيمة المتغير FUNCC"
    Print(AA)

End Sub


Private Sub FUNC()

    If NNN <= 10 Then
        Call FUNC1()

    Else
        Call FUNC2()

    End If

End Sub

Private Sub FUNC1()

    AA = 111

End Sub


Private Sub FUNC2()

    AA = 222

End Sub