If FileSys.FileExists(str) Then
Dim img As image = getImage(str)
If img IsNot Nothing Then
Dim bmp As New bitmap(img, 30, 40)
bmp.save(str1)
bmp.Dispose
If FileSys.FileExists(str1) Then
e.Graphics.DrawImage(getImage(str1), e.x + 1, e.y + 1, e.Width - 2, e.Height - 2)
e.Text = ""
Else
e.Text = "待下载"
End If
End If
End If