Click above to get retro games delivered to your door ever month!

// FiveWin - VBX Visual Basic controls management tutorial

#include "FiveWin.ch"

static oWnd

//----------------------------------------------------------------------------//

function Main()

   local oVbx

   DEFINE WINDOW oWnd TITLE "Using VBXs with FiveWin"

   @ 3, 10 VBX oVbx SIZE 100, 100 ;
      FILENAME "Switch.vbx" CLASS "BiSwitch" ;
      ON ON  MsgInfo( "Turn ON the light!" ) ;
      ON OFF MsgInfo( "Turn OFF the light!" )

   ACTIVATE WINDOW oWnd

return nil

//----------------------------------------------------------------------------//