sub verifica (obj as object , e as eventargs)
risultato.text = obj.ID
End Sub

Credo...
ho formattato ieri il pc e non ho ancora reinstallato .net...