Visual Basic

  <br />
Dim a, b, c As Integer<br />
b = 10<br />
a = b = 5<br />
MsgBox(CBool(a))<br />

[Main Program]
initialize any global variables
display Loginfrm

[Loginfrm]
When the Login button is pressed
begin
    read the username and password
    if the userid and password are valid then
        hide Loginfrm
        display MainMenufrm
    endif
end

when the "Exit" button is pressed
begin
    End program
end

[MainMenufrm]
when the "View Vehicle Database" button is pressed
begin
    hide MainMenufrm
    display ViewVehiclefrm
end

when the "View Customer Database" button is pressed
begin
    hide MainMenufrm
    display ViewCustomerfrm
end

when the "Quick Rent" button is pressed
begin
    hide MainMenufrm
    display QuickRentfrm
end

when the "Exit" button is pressed
begin
    hide MainMenufrm
    display Loginfrm
end