أحتاج كود استرجاع الحالة

combobox.Visible = false
أمر.Top = XXX
تسمية.Top = XXX

بالنسبة للكومبو استخدمه كما بالكود السابق combobox.Visible = false

اما بالنسبة للامر والتسمية فيجب عليك معرفة مكانهما السابق لكي تستطيع اعادتهم الى المكان الاصلي مثلا

dim X as integer , Y as integer
Y=أمر.Top
X=تسمية.Top

هذة الشفرة ضعها في تحميل النافذة

وعندما تود ارجاعهما الى السابق اكتب

أمر.Top = Y
تسمية.Top = X

نصيحة يفضل كتابة الاسماء باللغة النجليزية

أخي أبو يوسف ..

يفضل في هذه الحالة أن نستخدم خاصية Tag في الأدوات لتخزين الموقع القديم

وبذلك يكون الكود :

If combobox.Visible = False Then
    combobox.Visible = True
    أمر.Top = 2750
    تسمية.Top = 2700
Else
    combobox.Visible = False
    أمر.Top = أمر.Tag
    تسمية.Top = تسمية.Tag
End If

وفي حدث عند تحميل النموذج ضع السطرين التاليين :

    أمر.Tag = أمر.Top
    تسمية.Tag = تسمية.Top

جزاكم الله ألف خير على هذا الرد السريع والواضح