Dim bSuccess As Boolean = False
Do
Try
' Some code that is to be protected.
' ...
bSuccess = True
Catch e As Exception
' Some recovery action.
' ...
End Try
Loop Until bSuccess
Copyright © 2011 P.S.I.. Free Blogspot Templates by Blogger Templates. Photography Logos. Css by csstemplatesmarket
0 comentários:
Enviar um comentário