1. เปิด VFP ลองสร้างฟอร์มขึ้นมา 1 ฟอร์ม

    Create form xxx

2. xxx.RightClick เขียนโค๊ด

    Set Procedure to NatSeed.Prg Additive

    Set Shadow on

    Define Popup PopNat From Mrow() , Mcol() Margin Shortcut font "Japan Gril" , 11 Style "B"

    Define Bar 01 Of PopNat Prompt "\<1. Sexy 1 wow"

    Define Bar 02 Of PopNat Prompt "\<2. Sexy 2 wow" Skip For CheckRight(UserID)

    Define Bar 03 Of PopNat Prompt "\<3. Sexy 3 yes"

    On Select Popup PopNat Deactivate Popup PopNat

    Activate Popup PopNat

    Release Popup PopNat

    Do case

         case Bar() = 2

            && Go Patpong

            && Go Pattaya

          case ...

    Endcase

    NatSeed.Prg

    Function CheckRight( UserID)

    Yes = .F.

    Select ...

    Seek UserID

    If Found()

       Yes = .T.

    Endif

    Return Yes

ลองประยุกต์ดูครับ