مشکل ارسال عکس(توضیح کد)

[101011 50]

سلام دوستان
کسی متونه بگه چرا این خط کد وقتی میزنم عکس رو ارسال نمیکنه چیه؟
 

	Dim a As RSImageProcessing
	Dim namesave As String
	namesave="image"
	a.writeBitmapToFile(ImageView2.Bitmap,File.DirRootExternal,namesave&".png",100)
	Try
	share.sharebinary(File.DirRootExternal&"/image.jpg","image/png"," اشتراک","","")
	Catch
	Msgbox("خطای اشتراک ","")
	End Try