Не прогружается начальная форма программы - Visual Basic .NET

Формулировка задачи:

Программа написана на VB.net установлена на 14 компьютерах, и у некоторых юзеров время от времени перестает грузиться - на панели задач появляется значок, что программа загружена, на экране форма не появляется. Моя программа с реестром не работает (не сохраняет в него и не читает из него). Прохожу по реестру ССleaner он пишет -

Ошибки путей приложения

и указывает путь к моей программе. Проблема решается в принципе элементарно, переименовываешь папку, где лежит программа и она начинает нормально работать. Но разобраться хочется, я грешу на то, что сохраняю размеры формы и местоположение ее с помощью Settings:

'Грузим из настроек, положение формы на экране и ее размер
        Me.Location = New Point(My.Settings.f1x, My.Settings.f1y)
        Me.Size = New Size(My.Settings.f1w, My.Settings.f1h)

'Запоминаем размер и положение формы в настройках
        My.Settings.F1x = Me.Location.X
        My.Settings.F1y = Me.Location.Y
        My.Settings.F1h = Me.Size.Height
        My.Settings.F1w = Me.Size.Width
        My.Settings.Save()

Может кто нибудь сталкивался с подобной проблемой и может подсказать пути решения!

Решение задачи: «Не прогружается начальная форма программы»

textual
                            Листинг программы 
                        

                                Private Sub Form1_Disposed(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Disposed
        Dim x, y, h, w As Integer
        x = Me.Location.X
        y = Me.Location.Y
        h = Me.Size.Height
        w = Me.Size.Width
        Dim s As String = "x=" & x.ToString & "; " & "y=" & y.ToString & "; " & "h=" & h.ToString & "; " & "w=" & w.ToString & ";"
 
        FileOpen(1, Application.StartupPath & "\1.txt", OpenMode.Append)
        Print(1, s)
        FileClose(1)
    End Sub
                        