نمونه کد های کوچک و کاربردی VB.Net

[ravegoat]

اگر برنامه ی شما شامل چندین فرم است، با این کد می توانید عنوان پنجره هایی از برنامه که بارگذاری شده اند را در قالب یک جعبه ی متنی مشاهده کنید:

Dim openfrmtle As String
For Each appform As Form In Application.OpenForms
    openfrmtle += Chr(13) + appform.Text
    MsgBox(openfrmtle, 64, "Open Form(s) : " + CStr(Application.OpenForms.Count))
Next