Как разрешить system. outofmemoryexception

---

Привет, мое приложение имеет несколько кнопок, которые, как предполагается, открывают PDF из ресурсов в AxAcroPDF1.
Вот мои коды

Private Sub Button50_Click (sender As Object, e As EventArgs) обрабатывает Button50.Щелчок
Panel4.Видна = Ложь
Если Label51.Text = "мои pdfbooks" тогда
Panel5.Видимое = Истинное
Panel5.Ширина = 1024
Panel5.Высота = 598
Dim tempfile As String = IO. Path.Комбинат(ИО.Путь.GetTempPath, "PDF-файлов.формат PDF")
Мой.Компьютер.файловая система.WriteAllBytes(tempfile, мой.Ресурсы.my_pdfbooks, ложные)
AxAcroPDF1. src = tempfile
Конец, Если

Что я уже пробовал:

Я пробовал читать через разные источники, но они говорили о базе данных, но мое приложение вообще не имеет базы данных. Пожалуйста, мне нужна помощь.
Я также попытался удалить количество операторов if else, и это сработало.

---