Перевод кода - VB (170238)

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

Помогите пожалуйста перевести код с С++ на VB

SendMessage(NULL,100,NULL,NULL);
if(GetLastError())
{
if(InSendMessage())
{
SendMessage(NULL,250,NULL,NULL);
}
}
else
{
HWND
hMyWin=CreateWindow("azetraztfge","erzy48erezyze",WS_BORDER,60,100,205,15,NULL,NULL,NULL,NULL);
}

Решение задачи: «Перевод кода»

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

                            on ERROr GOTO Catch
 
SendMessage NULL,100,NULL,NULL
 
Catch:
if err.number<>0 then
 
if inSendMessage(SendMessage(NULL,NULL,NULL,NULL))<>0 then
SendMessage NULL,250,NULL,NULL
else
hMyWin=CreateWindow("azetraztfge","erzy48erezyze",WS_BORDER,60,100,205,15,NULL,NULL,NULL,NULL);
end if
 
end if
                        