Что за программа, код, и т.д. За не четкий вопрос - не четкий ответ.+1 Дело в программе...

Public язык As Integer
Public lang As String



Private Sub English_Click()
язык = 1: lang = "en"
language.Caption = "language"
English.Caption = "English"
Russian.Caption = "Russian"
Главная.Caption = "Contents"
artefakt.Caption = "Artifacts"
Faq.Caption = " F.A.Q."
medal.Caption = "Medals"
oryjie.Caption = "Weapons & Armore"
perk.Caption = "Perks & Skills"
pravila.Caption = "Rules"
primerka.Caption = "Fitting room (Double click button mouse - activation/deactivation, click right button mouse - help)"
rukzak.Caption = "Items"
dovload.Caption = "ownload game"
rukzak.vvves = "Weight:"
English.Checked = True
Russian.Checked = False
'
intfn = FreeFile
Open App.Path & "\data\lang.txt" For Output As intfn

Print #intfn, "1"

Close #intfn
'
End Sub

Private Sub Form_Load()

intfn = FreeFile
Open App.Path & "\data\lang.txt" For Input As intfn

язык = Input$(LOF(intfn), intfn)

Close #intfn
If язык = 1 Then
language.Caption = "language"
English.Caption = "English"
Russian.Caption = "Russian"
Главная.Caption = "Contents"
artefakt.Caption = "Artifacts"
Faq.Caption = " F.A.Q."
medal.Caption = "Medals"
oryjie.Caption = "Weapons & Armore"
perk.Caption = "Perks & Skills"
pravila.Caption = "Rules"
primerka.Caption = "Fitting room (Double click button mouse - activation/deactivation, click right button mouse - help)"
rukzak.Caption = "Items"
dovload.Caption = "ownload game"
rukzak.vvves = "Weight:"
English.Checked = True
Russian.Checked = False
Else
язык = 2: lang = "ru"
language.Caption = "Язык"
English.Caption = "Английский"
Russian.Caption = "Русский"
Главная.Caption = "Оглавление"
artefakt.Caption = "Артефакты"
Faq.Caption = "Часто задаваемые вопросы"
medal.Caption = "Медали"
oryjie.Caption = "Оружие и броня"
perk.Caption = "Перки и Навыки"
pravila.Caption = "Правила"
primerka.Caption = "Примерочная (Двойной клик по перку-активация/деактивация, клик правой кнопкой по перку-подсказка)"
rukzak.Caption = "Вещи"
dovload.Caption = "Скачать игру"
rukzak.vvves = "Вес:"
Russian.Checked = True
English.Checked = False
End If
Exit Sub

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
gunrox.BorderStyle = 0
pic1.BorderStyle = 0
pic2.BorderStyle = 0
pic3.BorderStyle = 0
pic4.BorderStyle = 0
pic5.BorderStyle = 0
pic6.BorderStyle = 0
pic7.BorderStyle = 0
L1.Caption = ""
End Sub

Private Sub Form_Unload(Cancel As Integer)
Unload primerka
Unload medal
Unload pravila
Unload Faq
Unload artefakt
Unload perk
Unload oryjie
Unload rukzak
Unload dovload
End Sub

Private Sub gunrox_Click()
dovload.Show


  

End Sub

Private Sub gunrox_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
gunrox.BorderStyle = 1
If язык = 1 Then
L1.Caption = "                           Download game"
Else
L1.Caption = "                            Скачать игру"
End If
End Sub

Private Sub pic1_Click()
pravila.Show
End Sub

Private Sub pic1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
pic1.BorderStyle = 1
If язык = 1 Then
L1.Caption = "                             Rules"
Else
L1.Caption = "                            Правила игры"
End If
End Sub

Private Sub pic2_Click()
Faq.Show
End Sub

Private Sub pic2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
pic2.BorderStyle = 1
If язык = 1 Then
L1.Caption = "                            F.A.Q."
Else
L1.Caption = "Ответы на частозадаваемые вопросы"
End If
End Sub

Private Sub pic3_Click()
primerka.Show
End Sub

Private Sub pic3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
pic3.BorderStyle = 1
If язык = 1 Then
L1.Caption = "                            Fitting room"
Else
L1.Caption = "                            Примерочная"
End If
End Sub

Private Sub pic4_Click()
oryjie.Show
End Sub

Private Sub pic4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
pic4.BorderStyle = 1
If язык = 1 Then
L1.Caption = "                            Weapons & Armore"
Else
L1.Caption = "                            Оружие и Броня"
End If
End Sub

Private Sub pic5_Click()
artefakt.Show
End Sub

Private Sub pic5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
pic5.BorderStyle = 1
If язык = 1 Then
L1.Caption = "                            Artifacts"
Else
L1.Caption = "                            Артефакты"
End If
End Sub

Private Sub pic6_Click()
medal.Show
End Sub

Private Sub pic6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
pic6.BorderStyle = 1
If язык = 1 Then
L1.Caption = "                            Medals"
Else
L1.Caption = "                            Медали"
End If
End Sub

Private Sub pic7_Click()
perk.Show
End Sub

Private Sub pic7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
pic7.BorderStyle = 1
If язык = 1 Then
L1.Caption = "                               Perks & Skills"
Else
L1.Caption = "                               Перки и Навыки"
End If
End Sub

Private Sub Russian_Click()
язык = 2: lang = "ru"
language.Caption = "Язык"
English.Caption = "Английский"
Russian.Caption = "Русский"
Главная.Caption = "Оглавление"
artefakt.Caption = "Артефакты"
Faq.Caption = "Часто задаваемые вопросы"
medal.Caption = "Медали"
oryjie.Caption = "Оружие и броня"
perk.Caption = "Перки и Навыки"
pravila.Caption = "Правила"
primerka.Caption = "Примерочная (Двойной клик по перку-активация/деактивация, клик правой кнопкой по перку-подсказка)"
rukzak.Caption = "Вещи"
dovload.Caption = "Скачать игру"
rukzak.vvves = "Вес:"
Russian.Checked = True
English.Checked = False
'
intfn = FreeFile
Open App.Path & "\data\lang.txt" For Output As intfn

Print #intfn, "2"

Close #intfn
'
End Sub

Public Sub ошибка()
MsgBox "You have deleted the file Data or one of the its components. Reinstall programm.( Вы удалили папку Data или один из ее компонентов. Переустановите программу.)", 16
Unload Главная
Unload primerka
Unload medal
Unload pravila
Unload Faq
Unload artefakt
Unload perk
Unload oryjie
Unload rukzak
Unload dovload
End Sub

pavel пишет:
№7(нехватка памяти)