[سوال]ذخیره عکسه داخل یه لینک با vb

[mvmproject]

ابزارات لازم :
دو تا command
commondialog
text

Private Sub Command1_Click()
Open "c:\mvmproject.html" For Output As #1
Print #1, "<img src =" & """" & Text1.Text & """" & "/>"
Close #1


End Sub

Private Sub Command2_Click()
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
Image1.Picture = LoadPicture(CommonDialog1.FileName)


End Sub