پرسش تغییر ابعاد و فونت InputBox , Msgbox

[khorasan66]

سلام

چگونه می شود ابعاد و فونت و رنگ InputBox , Msgbox را از حالت پیش فرض تغییر داد و با کد مشخص نمود
چگونه می شود اعداد و حروف تایپ شده در InputBox به صورت ***** نمایش داده شوند جهت وارد نمودن pasword

لازم به توضیح است که موارد فوق برای استفاده در Form نمی باشد مثلا در کد زیر :
Sub pass_01()
On Error Resume Next
Dim A!
A = InputBox("بهینه ساز", "کلمه عبور را وارد نمائید")
B = 1234
If A <> B Then
Exit Sub
Else
Call UNPB
......

[abootorab]

سلام

چگونه می شود ابعاد و فونت و رنگ InputBox , Msgbox را از حالت پیش فرض تغییر داد و با کد مشخص نمود
چگونه می شود اعداد و حروف تایپ شده در InputBox به صورت ***** نمایش داده شوند جهت وارد نمودن pasword

لازم به توضیح است که موارد فوق برای استفاده در Form نمی باشد مثلا در کد زیر :
Sub pass_01()
On Error Resume Next
Dim A!
A = InputBox("بهینه ساز", "کلمه عبور را وارد نمائید")
B = 1234
If A <> B Then
Exit Sub
Else
Call UNPB
......

با درود
دوست عزیز تا اونجایی که بنده اطلاع دارم مواردی که خواستین امکان پذیر نیست، یعنی تغییرات مربوط به سایز و رنگ فونت و سایر موارد در Msgbox و Inputbox توسط کاربر امکان پذیر نیست اما شما به راحتی و با استفاده از یوزرفرم ها و نوشتن یک زیربرنامه و تعدادی کد این دستورات را به همان شکل و با امکانات بیشتر شبیه سازی کنید طوری که استفاده از آنها نیز به راحتی استفاده از دستورات پیشفرض (MsgBox و InputBox) باشد.
در صورت نیاز بفرمایید تا بنده یا دوستان شما رو راهنمایی کنند.