Sub img_Click
'Vérife que c'est bien notre wallpaper
checkCurrentWallpaper
Dim iv As ImageView
iv = Sender
Dim tempUrl As String = iv.tag
Select Case GetDeviceLayoutValues.Width
Case 320
tempUrl = tempUrl.Replace("thumb", "images320")
Case 480
tempUrl = tempUrl.Replace("thumb", "images480")
Case 720
If GetDeviceLayoutValues.Height = 1184 Then
tempUrl = tempUrl.Replace("thumb", "images7201184")
Else
tempUrl = tempUrl.Replace("thumb", "images720")
End If
Case 800
tempUrl = tempUrl.Replace("thumb", "images800")
Case Else
tempUrl = tempUrl.Replace("thumb", "images800")
End Select
Dim realSizeJob As HttpJob
realSizeJob.Initialize ("realSizeJob", Me, "")
realSizeJob.Download(tempUrl)
End Sub