Программирование мобильных устройств на платформе .NET Compact Framework

 'чтобы сообщить приложению о том, что произошел сбой!
 Throw myException
 End Try

 'Загрузка прошла успешно!

'Закрыть все ресурсы.
 Try
 'Стандартная процедура закрытия ресурсов.
 myFileStream.Close
 myFileStream = Nothing

 myHTTPResponseStream.Close
 myHTTPResponseStream = Nothing

 myWebResponse.Close
 myWebResponse = Nothing
 Catch myException As Exception 'Сбой в процессе закрытия ресурса!
 'Что-то случилось. Освободить ресурс
 attemptCleanup_ThrowNoExceptions(myFileStream, _
 myHTTPResponseStream, myWebResponse)
 'Теперь, когда ресурс освобожден, повторно сгенерируем исключение,
 'чтобы сообщить приложению о том, что произошел сбой!
 Throw myException
 End Try
 'Успешное выполнение!
End Sub

'----------------------------------------------
'Пытается закрыть и освободить все объекты
'Перехватывает любое вырабатываемое исключение.
'----------------------------------------------
Sub attemptCleanup_ThrowNoExceptions( _
 ByVal myFileStream As System.10.FileStream, _
 ByVal myHTTPResponseStream As System.IO.Stream, _
 ByVal myWebResponse As System.Net.WebResponse)

 If Not (myFileStream Is Nothing) Then
 Try
 myFileStream.Сlose
 Catch 'He выполнять никаких действий.
 End Try
 End If

 If Not (myHTTPResponseStream Is Nothing) Then
 Try
 myHTTPResponseStream.Close
 Catch 'He выполнять никаких действий.
 End Try
 End If

 If Not (myWebResponse Is Nothing) Then
 Try
 myWebResponse.Close
 Catch 'He выполнять никаких действий.
 End Try
End If
End Sub