[ناجي إبراهيم]

السلام عليكم...

الإجراء يكون كالتالي:

كود :

Private Sub BringToFront(ParamArray ControlNames() As Variant)
    Dim Idx As Long
    
    On Error GoTo BringToFront_Err
    
    For Idx = 0 To UBound(ControlNames)
        ControlNames(Idx).ZOrder vbBringToFront
    Next Idx
    Exit Sub
    
BringToFront_Err:
    Err.Clear
    Err.Raise vbObjectError + 1001, App.EXEName & " - Sub BringToFront", "أحد البارامترات ليس مكوناً موجوداً أو أنه لا يدعم وظيفة الإحضار إلى الأمام"
End Sub

و يتم الاستدعاء كالتالي مثلاً:

كود :

BringToFront Text1, Frame2

نرجو الاستفادة و السلام.