خوب کار تمومه کافيه تگ img رو شبيه سازي کنيم :

Dim html As String html = "<img src=""" + mydir + picname + """ height=""" & imgHeight & """ width=""" & imgWidth & ">""" Return html

الان ما يک تابع داريم که وقتي اسم عکس و ماکسيسم طول و عرض دلخواه رو بهش ميديم خروجيش نمايش يک تصوير توسط تگ img که به نسبت يکسان کوچک شده است.

کد ايجاد شده در نهايت به صورت زير است :