هنگام کار در VBA، یکی از چیزهایی که می توانید ایجاد کنید به عنوان "فرم کاربر" شناخته می شود. این فرم ها به شما این امکان را می دهند که اساسا جعبه های محاوره ای خود را ایجاد کنید. در صورت تمایل می توانید انواع مختلفی از کنترل ها را به فرم کاربر اضافه کنید. به عنوان مثال، میتوانید برچسبها، جعبههای متن، فهرستهای کشویی، دکمههای رادیویی و بسیاری از کنترلهای دیگر را اضافه کنید. برخی از کنترل هایی که می توانید اندازه آنها را تغییر دهید. دیگران را نمی توانید یکی که نمی توانید اندازه آن را تغییر دهید یک چک باکس است. در حالی که می توانید اندازه فونت مورد استفاده برای برچسب کنار چک باکس را تغییر دهید، نمی توانید اندازه خود چک باکس را تغییر دهید.
اگر چک باکس ها در فرم های کاربری خود را برای سلیقه خود بسیار کوچک می بینید، می توانید با شبیه سازی یک چک باکس، آنها را دور بزنید. شما این کار را با ایجاد یک برچسب به جای چک باکس انجام می دهید. سپس، ویژگیهای برچسب را طوری تغییر دهید که پسزمینه شفافی داشته باشد و فونت مورد استفاده Wingdings باشد. همچنین باید مطمئن شوید که فونت در اندازه بزرگ مانند 20 یا 26 نقطه تنظیم شده است.
اکنون، روی برچسب خود دوبار کلیک کنید، که باید یک پنجره کد باز شود. رویدادی که شما در حال برنامه ریزی آن هستید، رویداد Click برای برچسب است، به این معنی که هر زمان روی برچسب کلیک شود، اجرا می شود. از این به عنوان کد خود استفاده کنید:
Private Sub Label1_Click()
If Label1.Caption = Chr(254) Then
Label1.Caption = Chr(168)
Else
Label1.Caption = Chr(254)
End If
End Sub
در فونت Wingding، Chr(254) کادری با علامت چک است و Chr(168) کادری بدون علامت است. هنگامی که فرم کاربر را اجرا می کنید و روی برچسب کلیک می کنید، بین یک کادر خالی و یک کادر علامت دار جابجا می شود. همچنین میتوانید کدهای دیگری را در صورت لزوم به رویداد Click اضافه کنید که وظایف دیگری را انجام میدهد.