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

  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

Примечания

1

Caveat emptor (лат.) — пусть покупатель будет бдителен.