Randomize(timer)

a = CInt(Rnd(timer))

Run-Time Check Failure #0 - The value of ESP was not properly saved across a function call.
This is usually a result of calling a function declared with one calling convention with a function
pointer declared with a different calling convention.

#include <Windows.h>
#include <iostream>
 
typedef void (__stdcall *PROC_info)(char *,char *,long *,long *);
 
struct PLUGIN
{
	HMODULE			dll_entrypoint;
	PROC_info		info_func;
};
 
int main()
{
 
	PLUGIN plugin1;
 
	plugin1.dll_entrypoint = LoadLibraryA("C:\\Dll-Test1.dll");
	if(plugin1.dll_entrypoint == NULL)
	{
		FreeLibrary(plugin1.dll_entrypoint);
		MessageBoxA(0,"No se encuentra la DLL","Error",0);
		return 1;
	}
	else{
		char *Version = "";
		char *Autor = "";
		long *numAutor = 0;
		long *numVersion = 0;
 
 
		plugin1.info_func = (PROC_info)GetProcAddress(plugin1.dll_entrypoint,"func1");
 
		plugin1.info_func(Version,Autor,numVersion,numAutor);
		FreeLibrary(plugin1.dll_entrypoint);
	}
	system("pause");
 
	return 0;
}

#define DLLDEXPORT  __declspec(dllexport)   // export DLL information
 
extern "C" {
       DLLDEXPORT void func1(char *, char *,long *,long *);
};
 
 

#include "plugin_main.h"
#include <windows.h>
 
BOOL APIENTRY DllMain(HMODULE hModule,DWORD  ul_reason_for_call,LPVOID lpReserved){
	switch (ul_reason_for_call)
	{
	case DLL_PROCESS_ATTACH:	//PROCESO CARGA
		break;
	case DLL_THREAD_ATTACH:		//THREAD CARGA
		break;
	case DLL_THREAD_DETACH:		//THREAD DESCARGA
		break;
	case DLL_PROCESS_DETACH:	//PROCESO DESCARGA
		break;
	}
	return TRUE;
}
 
DLLDEXPORT void func1(char *Version, char *Autor,long *numVersion,long *numAutor)
{
	MessageBoxA(0,"Soy el texto","Soy el caption",1);
}

if check1.value = true then
    'Escribes un 1 en la constante
else
    'Escribes un 0 en la constante
end if
 
'Y para usar las constante
 
if constante=1 then
'...
else
'...
end if

If not IsNumeric(Textbox2.Text) then exit sub
 
Dim numeroVecesTotal as integer
Dim numeroVeces as integer
Dim a as integer
Dim cnt asinteger
 
numeroVecesTotal = textbox2.text
 
Do while not numeroVeces = numeroVecesTotal
    a = CInt(Rnd)
    if a = 1 then
        numeroVeces = numeroVeces + 1
    else
        numeroveces = 0
    end if
    cnt = cnt + 1
Loop
 
Label6.text = cnt