Andrew Cattle found this in a legacy system. I wonder what would have taken longer: this or actually porting the code from VB to C++?

#include <windows.h>

/* Message Box Variables */
#define vbAbortRetryIgnore MB_ABORTRETRYIGNORE
#define vbApplicationModal MB_APPLMODAL
#define vbDefaultButton1 MB_DEFBUTTON1
#define vbDefaultButton2 MB_DEFBUTTON2
#define vbDefaultButton3 MB_DEFBUTTON3
#define vbDefaultButton4 MB_DEFBUTTON4
#define vbExclamation MB_ICONEXCLAMATION
#define vbInformation MB_ICONINFORMATION
#define vbMsgBoxHelpButton MB_HELP
#define vbMSgBoxRight MB_RIGHT
#define vbMsgBoxRtlReading MB_RTLREADING
#define vbMsgBoxSetForeground MB_SETFOREGROUND
#define vbOKCancel MB_OKCANCEL
#define vbOKOnly MB_OK
#define vbQuestion MB_ICONQUESTION
#define vbRetryCancel MB_RETRYCANCEL
#define vbSystemModal MB_SYSTEMMODAL
#define vbYesNo MB_YESNO
#define vbYesNoCancel MB_YESNOCANCEL
#define vbYes IDYES
#define vbNo IDNO

/* Waste */
#define Option
#define Explicit

/* Wahhh */
#define Private
#define Sub
#define End ;return 0;}
#define Form_Load() int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow) {

/* Variables */
#define Dim int
#define As
#define Integer ;

/* Logic */
#define Or ||
#define And &&
#define If ;if (
#define Then ) {
#define EndIf ;}
#define Else ;} else {
#define Call

/* Functions */
#define MsgBox(a,b,c) MessageBox(NULL,a,c,b)

/* And So On */

Option Explicit
Private Sub Form_Load()
//real code changed to protect the innocent
Dim i As Integer
i = 100
If MsgBox("Are you alright?", vbYesNo,"Question") = vbNo Then
Call MsgBox("Thats Very Good!",vbInformation ,"Answer")
Else
Call MsgBox("Thats NOT Very Good!",vbInformation ,"Answer")
EndIf

Call MsgBox("By the way, Pointless integer called i here",vbInformation ,"BTW")
End Sub

Also, on another note ... Last Wednesday, my frusteration level with Oracle grew to a record high, inspiring me to join the I-Hate-Oracle Club (IHOC). Feel free to join the IHOC as well ;-).

[Advertisement] BuildMaster allows you to create a self-service release management platform that allows different teams to manage their applications. Explore how!