
label1.Hide()
Dim Strings As String
Dim wc As New WebClient
Strings = wc.DownloadString("http://thecaconline.net/cbl/player/" + TextBox1.Text + ".html")
wc.Dispose()
If Strings.Contains("http://thecaconline.net/cbl/images/dirty.png") Then
'PLAYER IS CBL DIRTY
label1.Show()
Return
Else
If Strings.Contains("http://thecaconline.net/cbl/images/clean.png") Then
'PLAYER IS CBL CLEAN
label2.Show()
label1.Hide()
Return
End If
End Sub
