Do you mean something like this?
' emits Blitz3DSDK events via BlitzMax event system ' using a combination of bbSetBlitz3DEventCallback and EnablePolledInput Import blitz3d.blitz3dsdk Strict Function BBEventHandler(hwnd,msg,wp,lp) "C" bbSystemEmitOSEvent hwnd,msg,wp,lp,Null Return -1 End Function bbSetBlitz3DEventCallback(Int Byte Ptr BBEventHandler) bbBeginBlitz3D() bbGraphics3D 800,600,0,2 Local cube=bbCreateCube() Local light=bbCreateLight() Local camera=bbCreateCamera() bbPositionEntity camera,0,0,-4 EnablePolledinput While Not KeyDown(KEY_ESCAPE) If PollEvent() DebugLog CurrentEvent.ToString() EndIf bbTurnEntity cube,1,2,3 bbRenderWorld bbText 20,20,"mouse:"+MouseX()+","+MouseY() bbFlip Wend