
private sub form_unload(cancel as integer)
close #1
open "myfile" for output as #1
print #1, text1.text
close #1
end sub
Во второй которая загружает имя ввел такои код:
private sub form_load()
close #1
open "myfile" for input as #1
line input #1, text1.text
close #1
end sub
В третий кнопке которая выходит из проги ввел код:
Private Sub Command3_Click()
End
End Sub
Затем создал класс модуль и ввел такои код:
private sub vscroll_scroll()
for each ctl in form.coontrols
ctl.top = ctl.top+vscroll.value
next ctl
end sub
Откомпилировал прогу что бы проверить как получилось , и вот бац скрол не прокручивает и кнопки не сохроняют текст выдает какуюто ошибку "Variable required - can't assign to this expression"
Помогите где я зделал ошибку !! Please!!