cmpstrings.via

用VB6写的真正的32位高级语言可视程序编译器

// CmpStrings.lnl

application PE GUI;

string message;
string messageII;

entry
    message = "Compare"; messageII = "Compare";
    if (message = messageII) {
        MessageBox(0,"Equal","Strings..",0);
    } else {
        MessageBox(0,"Not Equal","Strings..",0);
    }

end.