بعد از رفرنس باید این کد ها رو بنویسید که البته همه آشنا هستند
Imports BoxinOut
Module myMsg
Dim mss AsNew Msg
PublicFunction MsgBox(ByVal Prompt AsString, OptionalByVal style As MsgBoxStyle = MsgBoxStyle.OkOnly, OptionalByVal Title AsString = "") As MsgBoxResult
Return mss.MsgFox(FrmMain.Handle.ToInt32, Prompt, style, Title)
EndFunction
PublicFunction InputBox(ByVal Prompt AsString, OptionalByVal Title AsString = "", OptionalByVal DefualtStr AsString = "") AsString
Return mss.InputBox(Prompt, Title, DefualtStr)
EndFunction
PublicFunction OptionBox(ByVal Prompt AsString, ByVal Items() AsString, OptionalByVal Title AsString = "", OptionalByVal DefaultIndex AsInteger = 0, OptionalByVal ListMode As BoxinOut.OptionStyle = OptionStyle.ComboMod) AsInteger
Return mss.OptionBox(Prompt, Items, Title, DefaultIndex, ListMode)
EndFunction
EndModule
پاسخ با نقل قول
