VB.NET: Mengecek Keberadaan Gambar (Image) dari URL Web

Akhir-akhir ini Rani terlalu sering "bermain" dengan image dan ftp. Sedikit meninggalkan jejak tentang hal tersebut, artikel kali ini kita bakal bahas gimana cara mengecek apakah image dalam url tersedia atau tidak.

Yaitu menggunakan deklarasi fungsi sebagai berikut:
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
 (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, _
  ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Code ini rani dapet dari link berikut:
http://www.vbforums.com/showthread.php?544655-RESOLVED-Check-to-see-if-a-image-exists-on-the-web

Aslinya code ini buat VB6 tapi ternyata masih reliable digunakan di VB.NET.
Gimana penggunaannya? Mari kita coba buat project sebagai berikut:

Code:
Public Class Form1
  Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
          (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, _
           ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      Dim sURL As String = TextBox1.Text
      Dim i As Long
      i = URLDownloadToFile(0, sURL, "", 0, 0)
      If i <> 0 Then
          MsgBox("File does not exist")
      Else
          MsgBox("File exists")
      End If
  End Sub
End Class

Saat kita jalankan program, masukan url image yang ada (valid) ke textbox lalu tekan button 1 maka hasilnya:

Sementara jika url image tidak tersedia maka: