قسمت اول :براي داشتن همچنين فرمي بصورت زير عمل ميكنيم:
ابتدا خاصيت FormBorderStyle فرم را به حالت None ست ميكنيم تا فرم هيچ گونه حاشيه اي نداشته باشد.
يك ماژول با هر نامي ايجاد كرده و متغيرها و توابع زير زير را در آن تعريف ميكنيم
حال در رويداد لود فرم روال RoundFormCorners() را فرامي خوانيم.کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
در اين حالت با كليك بر روي هر كدام از برچسبهاي بالا و پايين و كشيدن آن به هر جايي كه خواستيم ميتوانيم فرم را جابجا كنيم.حال يك مشكل باقي ميماند : فرم ما فاقد حاشيه است و جابجا نميشود(زيبايي چنداني هم ندارد). براي حل اين مشكل 4 برچسب در فرم قرار داده و خاصيت Duck هر يك را به سمت بالا،پايين،چپ و راست ست ميكنيم(دو برچسب كناري هر چه عرض كمتري داشته باشند زيباتر ديده ميشوند مثلا 2).براي جابجا كردن فرم در رويداد MouseDown برچسبهاي بالا و پاييين كد زير را وارد ميكنيمکد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید