Форум АНТИЧАТ - Загрузка текстового файла, через ActiveX

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - Загрузка текстового файла, через ActiveX (https://forum.antichat.xyz/showthread.php?t=191113)

Загрузка текстового файла, через ActiveX

Код:

Private SUB Command1_Click()

DIM F AS LONG

DIM Stroka AS STRING

Text1.Text = ""

CommonDialog1.Filter = "Текстовые файлы (*.txt)|*.txt"

CommonDialog1.ShowOpen

F = FREEFILE

Text2.Text = CommonDialog1.FileName

OPEN CommonDialog1.FileName FOR INPUT AS #F

DO WHILE NOT EOF(F)

LINE INPUT #F, Stroka

Text1.Text = Text1.Text & Stroka

LOOP

CLOSE #F

END SUB

После строки CommonDialog1.ShowOpen нечего не понимаю, плз обьясните.
И можно ли написать вместо цикла DO WHILE - If then
А то совсем не понимаю такие циклы
Заранее спс

Узнаю старый добрый VB :)

'получение свободного дескриптора для использования в методе OPEN
F = FREEFILE

'присвоение контролу имени файла
Text2.Text = CommonDialog1.FileName

'открытие файла для чтения по имени взятом из CommonDialog1.FileName и присвоение дескриптора переменной F
OPEN CommonDialog1.FileName FOR INPUT AS #F

'Начало цикла до тех пор пока входной поток не кончится (файл не прочитается до конца)
DO WHILE NOT EOF(F)

'Чтение из файла в переменную Stroka
LINE INPUT #F, Stroka

'конкатенация уже имеющегося текста в контроле с текстом переменной Stroka
Text1.Text = Text1.Text & Stroka
LOOP 'оператор окончания цикла
CLOSE #F 'закрытие файла

Можно написать используя IF но тогда GOTO придется поюзать для организации цикла четния