GroupBox?

[gaslouk]

Hello from beautiful Greece.

In my attempt to create a column with 14 options
out of 14 groups of the 3rd points each group I did not manage to function the groupbox properly.
Where am I wrong?
Thank you.

NOmainWIN

UpperLeftX = 200
UpperRightX = 200
WindowWidth = 600
WindowHdight = 1000

groupbox    #TB1.gb4, "", 10, 130, 210, 35
groupbox    #TB1.gb5, "", 10, 160, 210, 35
groupbox    #TB1.gb6, "", 10, 190, 210, 35
groupbox    #TB1.gb7, "", 10, 220, 210, 35
groupbox    #TB1.gb8, "", 10, 250, 210, 35
groupbox    #TB1.gb9, "", 10, 280, 210, 35
groupbox    #TB1.gb10, "", 10, 310, 210, 35
groupbox    #TB1.gb11, "", 10, 340, 210, 35
groupbox    #TB1.gb12, "", 10, 370, 210, 35
groupbox    #TB1.gb13, "", 10, 400, 210, 35
groupbox    #TB1.gb14, "", 10, 430, 210, 35

statictext  #TB1.st1, "Áãþíáò 1ïò", 15, 50, 80, 20
radiobutton #TB1.rb1, "1", [rad1], [loop], 110, 50, 35, 20
radiobutton #TB1.rb15, "X", [rad15], [loop], 150, 50, 35, 20
radiobutton #TB1.rb29, "2", [rad29], [loop], 190, 50, 35, 20
groupbox    #TB1.gb1, "", 10, 40, 210, 35

statictext  #TB1.st2, "Áãþíáò 2ïò", 15, 80, 80, 20
radiobutton #TB1.rb2, "1", [rad2], [loop], 110, 80, 35, 20
radiobutton #TB1.rb16, "X", [rad16], [loop], 150, 80, 35, 20
radiobutton #TB1.rb30, "2", [rad30], [loop], 190, 80, 35, 20
groupbox    #TB1.gb2, "", 10, 70, 210, 35

statictext  #TB1.st3, "Áãþíáò 3ïò", 15, 110,80, 20
radiobutton #TB1.rb3, "1", [rad3], [loop], 110, 110, 35, 20
radiobutton #TB1.rb17, "X", [rad17], [loop], 150, 110, 35, 20
radiobutton #TB1.rb31, "2", [rad31], [loop], 190, 110, 35, 20
groupbox    #TB1.gb3, "", 10, 100, 210, 35

statictext  #TB1.st4, "Áãþíáò 4ïò", 15, 140,80, 20
statictext  #TB1.st5, "Áãþíáò 5ïò", 15, 170, 80, 20
statictext  #TB1.st6, "Áãþíáò 6ïò", 15, 200, 80, 20
statictext  #TB1.st7, "Áãþíáò 7ïò", 15, 230, 80, 20
statictext  #TB1.st8, "Áãþíáò 8ïò", 15, 260, 80, 20
statictext  #TB1.st9, "Áãþíáò 9ïò", 15, 290, 80, 20
statictext  #TB1.st10, "Áãþíáò 10ïò", 11, 320, 80, 20
statictext  #TB1.st11, "Áãþíáò 11ïò", 15, 350, 80, 20
statictext  #TB1.st12, "Áãþíáò 12ïò", 15, 380, 80, 20
statictext  #TB1.st13, "Áãþíáò 13ïò", 15, 410, 80, 20
statictext  #TB1.st14, "Áãþíáò 14ïò", 15, 440, 80, 20
button      #WIN.bt1, "¸îïäïò", [STOPIT], UR, 160, 550, 100, 25
           ComboboxColor$ = "White"

radiobutton #TB1.rb4, "1", [rad4], [loop], 110, 140, 35, 20
radiobutton #TB1.rb5, "1", [rad5], [loop], 110, 170, 35, 20
radiobutton #TB1.rb6, "1", [rad6], [loop], 110, 200, 35, 20
radiobutton #TB1.rb7, "1", [rad7], [loop], 110, 230, 35, 20
radiobutton #TB1.rb8, "1", [rad8], [loop], 110, 260, 35, 20
radiobutton #TB1.rb9, "1", [rad9], [loop], 110, 290, 35, 20
radiobutton #TB1.rb10, "1", [rad10], [loop], 110, 320, 35, 20
radiobutton #TB1.rb11, "1", [rad11], [loop], 110, 350, 35, 20
radiobutton #TB1.rb12, "1", [rad12], [loop], 110, 380, 35, 20
radiobutton #TB1.rb13, "1", [rad13], [loop], 110, 410, 35, 20
radiobutton #TB1.rb14, "1", [rad14], [loop], 110, 440, 35, 20

radiobutton #TB1.rb18, "X", [rad18], [loop], 150, 140, 35, 20
radiobutton #TB1.rb19, "X", [rad19], [loop], 150, 170, 35, 20
radiobutton #TB1.rb20, "X", [rad20], [loop], 150, 200, 35, 20
radiobutton #TB1.rb21, "X", [rad21], [loop], 150, 230, 35, 20
radiobutton #TB1.rb22, "X", [rad22], [loop], 150, 260, 35, 20
radiobutton #TB1.rb23, "X", [rad23], [loop], 150, 290, 35, 20
radiobutton #TB1.rb24, "X", [rad24], [loop], 150, 320, 35, 20
radiobutton #TB1.rb25, "X", [rad25], [loop], 150, 350, 35, 20
radiobutton #TB1.rb26, "X", [rad26], [loop], 150, 380, 35, 20
radiobutton #TB1.rb27, "X", [rad27], [loop], 150, 410, 35, 20
radiobutton #TB1.rb28, "X", [rad28], [loop], 150, 440, 35, 20

radiobutton #TB1.rb32, "2", [rad32], [loop], 190, 140, 35, 20
radiobutton #TB1.rb33, "2", [rad33], [loop], 190, 170, 35, 20
radiobutton #TB1.rb34, "2", [rad34], [loop], 190, 200, 35, 20
radiobutton #TB1.rb35, "2", [rad35], [loop], 190, 230, 35, 20
radiobutton #TB1.rb36, "2", [rad36], [loop], 190, 260, 35, 20
radiobutton #TB1.rb37, "2", [rad37], [loop], 190, 290, 35, 20
radiobutton #TB1.rb38, "2", [rad38], [loop], 190, 320, 35, 20
radiobutton #TB1.rb39, "2", [rad39], [loop], 190, 350, 35, 20
radiobutton #TB1.rb40, "2", [rad40], [loop], 190, 380, 35, 20
radiobutton #TB1.rb41, "2", [rad41], [loop], 190, 410, 35, 20
radiobutton #TB1.rb42, "2", [rad42], [loop], 190, 440, 35, 20

OPEN "ÅéóáãùãÞ ÓôáèåñÞò ÓôÞëçò" FOR WINDOW AS #TB1

   #TB1 "trapclose [STOPIT]"
   #TB1 "font consolas 10"

[loop]
wait

[STOPIT]
close #TB1
end

[rad1]
   #TB1.rb1 "value? result$"
   goto [loop]

[rad2]
   #TB1.rb2 "value? result$"
   goto [loop]

[rad3]
   #TB1.rb3 "value? result$"
   goto [loop]

[rad4]
   #TB1.rb4 "value? result$"
   goto [loop]

[rad5]
   #TB1.rb5 "value? result$"
   goto [loop]

[rad6]
   #TB1.rb6 "value? result$"
   goto [loop]

[rad7]
   #TB1.rb7 "value? result$"
   goto [loop]

[rad8]
   #TB1.rb8 "value? result$"
   goto [loop]

[rad9]
   #TB1.rb9 "value? result$"
   goto [loop]

[rad10]
   #TB1.rb10 "value? result$"
   goto [loop]

[rad11]
   #TB1.rb11 "value? result$"
   goto [loop]

[rad12]
   #TB1.rb12 "value? result$"
   goto [loop]

[rad13]
   #TB1.rb13 "value? result$"
   goto [loop]

[rad14]
   #TB1.rb14 "value? result$"
   goto [loop]

[rad15]
   #TB1.rb15 "value? result$"
   goto [loop]

[rad16]
   #TB1.rb16 "value? result$"
   goto [loop]

[rad17]
   #TB1.rb17 "value? result$"
   goto [loop]

[rad18]
   #TB1.rb18 "value? result$"
   goto [loop]

[rad19]
   #TB1.rb19 "value? result$"
   goto [loop]

[rad20]
   #TB1.rb20 "value? result$"
   goto [loop]

[rad21]
   #TB1.rb21 "value? result$"
   goto [loop]

[rad22]
   #TB1.rb22 "value? result$"
   goto [loop]

[rad23]
   #TB1.rb23 "value? result$"
   goto [loop]

[rad24]
   #TB1.rb24 "value? result$"
   goto [loop]

[rad25]
   #TB1.rb25 "value? result$"
   goto [loop]

[rad26]
   #TB1.rb26 "value? result$"
   goto [loop]

[rad27]
   #TB1.rb27 "value? result$"
   goto [loop]

[rad28]
   #TB1.rb28 "value? result$"
   goto [loop]

[rad29]
   #TB1.rb29 "value? result$"
   goto [loop]

[rad30]
   #TB1.rb30 "value? result$"
   goto [loop]

[rad31]
   #TB1.rb31 "value? result$"
   goto [loop]

[rad32]
   #TB1.rb32 "value? result$"
   goto [loop]

[rad33]
   #TB1.rb33 "value? result$"
   goto [loop]

[rad34]
   #TB1.rb34 "value? result$"
   goto [loop]

[rad35]
   #TB1.rb35 "value? result$"
   goto [loop]

[rad36]
   #TB1.rb36 "value? result$"
   goto [loop]

[rad37]
   #TB1.rb37 "value? result$"
   goto [loop]

[rad38]
   #TB1.rb38 "value? result$"
   goto [loop]

[rad39]
   #TB1.rb39 "value? result$"
   goto [loop]

[rad40]
   #TB1.rb40 "value? result$"
   goto [loop]

[rad41]
   #TB1.rb41 "value? result$"
   goto [loop]

[rad42]
   #TB1.rb42 "value? result$"
   goto [loop]
Gaslouk

[gaslouk]

Now it works properly. I do not know why he behaves like that.
NOmainWIN

UpperLeftX = 200
UpperRightX = 200
WindowWidth = 600
WindowHdight = 1000

groupbox    #TB1.gb1, "", 10, 40, 215, 35
radiobutton #TB1.rb1, "1", rad1, dummy, 110, 50, 35, 20
radiobutton #TB1.rb15, "X", rad1, dummy, 150, 50, 35, 20
radiobutton #TB1.rb29, "2", rad1, dummy, 190, 50, 35, 20
statictext  #TB1.st1, "Αγώνας 1ος", 15, 50, 80, 20

groupbox    #TB1.gb2, "", 10, 70, 215, 35
radiobutton #TB1.rb2, "1", rad2, dummy, 110, 80, 35, 20
radiobutton #TB1.rb16, "X", rad2, dummy, 150, 80, 35, 20
radiobutton #TB1.rb30, "2", rad2, dummy, 190, 80, 35, 20
statictext  #TB1.st2, "Αγώνας 2ος", 15, 80, 80, 20

groupbox    #TB1.gb3, "", 10, 100, 215, 35
radiobutton #TB1.rb3, "1", rad3, dummy, 110, 110, 35, 20
radiobutton #TB1.rb17, "X", rad3, dummy, 150, 110, 35, 20
radiobutton #TB1.rb31, "2", rad3, dummy, 190, 110, 35, 20
statictext  #TB1.st3, "Αγώνας 3ος", 15, 110,80, 20

groupbox    #TB1.gb4, "", 10, 130, 215, 35
radiobutton #TB1.rb4, "1", rad4, dummy, 110, 140, 35, 20
radiobutton #TB1.rb18, "X", rad4, dummy, 150, 140, 35, 20
radiobutton #TB1.rb32, "2", rad4, dummy, 190, 140, 35, 20
statictext  #TB1.st4, "Αγώνας 4ος", 15, 140,80, 20

groupbox    #TB1.gb5, "", 10, 160, 215, 35
radiobutton #TB1.rb5, "1", rad5, dummy, 110, 170, 35, 20
radiobutton #TB1.rb19, "X", rad5, dummy, 150, 170, 35, 20
radiobutton #TB1.rb33, "2", rad5, dummy, 190, 170, 35, 20
statictext  #TB1.st5, "Αγώνας 5ος", 15, 170, 80, 20

groupbox    #TB1.gb6, "", 10, 190, 215, 35
radiobutton #TB1.rb6, "1", rad6, dummy, 110, 200, 35, 20
radiobutton #TB1.rb20, "X", rad6, dummy, 150, 200, 35, 20
radiobutton #TB1.rb34, "2", rad6, dummy, 190, 200, 35, 20
statictext  #TB1.st6, "Αγώνας 6ος", 15, 200, 80, 20

groupbox    #TB1.gb7, "", 10, 220, 215, 35
radiobutton #TB1.rb7, "1", rad7, dummy, 110, 230, 35, 20
radiobutton #TB1.rb21, "X", rad7, dummy, 150, 230, 35, 20
radiobutton #TB1.rb35, "2", rad7, dummy, 190, 230, 35, 20
statictext  #TB1.st7, "Αγώνας 7ος", 15, 230, 80, 20

groupbox    #TB1.gb8, "", 10, 250, 215, 35
radiobutton #TB1.rb8, "1", rad8, dummy, 110, 260, 35, 20
radiobutton #TB1.rb22, "X", rad8, dummy, 150, 260, 35, 20
radiobutton #TB1.rb36, "2", rad8, dummy, 190, 260, 35, 20
statictext  #TB1.st8, "Αγώνας 8ος", 15, 260, 80, 20

groupbox    #TB1.gb9, "", 10, 280, 215, 35
radiobutton #TB1.rb9, "1", rad9, dummy, 110, 290, 35, 20
radiobutton #TB1.rb23, "X", rad9, dummy, 150, 290, 35, 20
radiobutton #TB1.rb37, "2", rad9, dummy, 190, 290, 35, 20
statictext  #TB1.st9, "Αγώνας 9ος", 15, 290, 80, 20

groupbox    #TB1.gb10, "", 10, 310, 215, 35
radiobutton #TB1.rb10, "1", rad10, dummy, 110, 320, 35, 20
radiobutton #TB1.rb24, "X", rad10, dummy, 150, 320, 35, 20
radiobutton #TB1.rb38, "2", rad10, dummy, 190, 320, 35, 20
statictext  #TB1.st10, "Αγώνας 10ος", 11, 320, 80, 20

groupbox    #TB1.gb11, "", 10, 340, 215, 35
radiobutton #TB1.rb11, "1", rad11, dummy, 110, 350, 35, 20
radiobutton #TB1.rb25, "X", rad11, dummy, 150, 350, 35, 20
radiobutton #TB1.rb39, "2", rad11, dummy, 190, 350, 35, 20
statictext  #TB1.st11, "Αγώνας 11ος", 15, 350, 80, 20

groupbox    #TB1.gb12, "", 10, 370, 215, 35
radiobutton #TB1.rb12, "1", rad12, dummy, 110, 380, 35, 20
radiobutton #TB1.rb26, "X", rad12, dummy, 150, 380, 35, 20
radiobutton #TB1.rb40, "2", rad12, dummy, 190, 380, 35, 20
statictext  #TB1.st12, "Αγώνας 12ος", 15, 380, 80, 20

groupbox    #TB1.gb13, "", 10, 400, 215, 35
radiobutton #TB1.rb13, "1", rad13, dummy, 110, 410, 35, 20
radiobutton #TB1.rb27, "X", rad13, dummy, 150, 410, 35, 20
radiobutton #TB1.rb41, "2", rad13, dummy, 190, 410, 35, 20
statictext  #TB1.st13, "Αγώνας 13ος", 15, 410, 80, 20

groupbox    #TB1.gb14, "", 10, 430, 215, 35
radiobutton #TB1.rb14, "1", rad14, dummy, 110, 440, 35, 20
radiobutton #TB1.rb28, "X", rad14, dummy, 150, 440, 35, 20
radiobutton #TB1.rb42, "2", rad14, dummy, 190, 440, 35, 20
statictext  #TB1.st14, "Αγώνας 14ος", 15, 440, 80, 20

OPEN "Εισαγωγή Σταθερής Στήλης" FOR WINDOW AS #TB1

   #TB1 "trapclose [STOPIT]"
   #TB1.rb1 "reset"
   #TB1.rb2 "reset"
   #TB1.rb3 "reset"
   #TB1.rb4 "reset"
   #TB1.rb5 "reset"
   #TB1.rb6 "reset"
   #TB1.rb7 "reset"
   #TB1.rb8 "reset"
   #TB1.rb9 "reset"
   #TB1.rb10 "reset"
   #TB1.rb11 "reset"
   #TB1.rb12 "reset"
   #TB1.rb13 "reset"
   #TB1.rb14 "reset"
   #TB1 "font consolas 10"

[loop]
wait

[STOPIT]
close #TB1
end

sub rad1 handle$
   #handle$ "set"
end sub

sub rad2 handle$
   #handle$ "set"
end sub

sub rad3 handle$
   #handle$ "set"
end sub

sub rad4 handle$
   #handle$ "set"
end sub

sub rad5 handle$
   #handle$ "set"
end sub

sub rad6 handle$
   #handle$ "set"
end sub

sub rad7 handle$
   #handle$ "set"
end sub

sub rad8 handle$
   #handle$ "set"
end sub

sub rad9 handle$
   #handle$ "set"
end sub

sub rad10 handle$
   #handle$ "set"
end sub

sub rad11 handle$
   #handle$ "set"
end sub

sub rad12 handle$
   #handle$ "set"
end sub

sub rad13 handle$
   #handle$ "set"
end sub

sub rad14 handle$
   #handle$ "set"
end sub

Probably the way of writing plays an important role.

Regards

Gaslouk

[metro]

to save yourself some time creating all those SUBS you could read up here www.libertybasicuniversity.com/lb4help/Handle_Variables.htm
it may be useful!

'    NOmainWIN

   UpperLeftX = 200
   UpperRightX = 200
   WindowWidth = 650
   WindowHeight = 650

   groupbox    #TB1.gb1, "", 10, 40, 215, 35
   radiobutton #TB1.rb1, "1", rad1, dummy, 110, 50, 35, 20
   radiobutton #TB1.rb15, "X", rad1, dummy, 150, 50, 35, 20
   radiobutton #TB1.rb29, "2", rad1, dummy, 190, 50, 35, 20
   statictext  #TB1.st1, "????a? 1??", 15, 50, 80, 20

   groupbox    #TB1.gb2, "", 10, 70, 215, 35
   radiobutton #TB1.rb2, "1", rad1, dummy, 110, 80, 35, 20
   radiobutton #TB1.rb16, "X", rad1, dummy, 150, 80, 35, 20
   radiobutton #TB1.rb30, "2", rad1, dummy, 190, 80, 35, 20
   statictext  #TB1.st2, "????a? 2??", 15, 80, 80, 20

   groupbox    #TB1.gb3, "", 10, 100, 215, 35
   radiobutton #TB1.rb3, "1", rad1, dummy, 110, 110, 35, 20
   radiobutton #TB1.rb17, "X", rad1, dummy, 150, 110, 35, 20
   radiobutton #TB1.rb31, "2", rad1, dummy, 190, 110, 35, 20
   statictext  #TB1.st3, "????a? 3??", 15, 110,80, 20

   groupbox    #TB1.gb4, "", 10, 130, 215, 35
   radiobutton #TB1.rb4, "1", rad1, dummy, 110, 140, 35, 20
   radiobutton #TB1.rb18, "X", rad1, dummy, 150, 140, 35, 20
   radiobutton #TB1.rb32, "2", rad1, dummy, 190, 140, 35, 20
   statictext  #TB1.st4, "????a? 4??", 15, 140,80, 20

   groupbox    #TB1.gb5, "", 10, 160, 215, 35
   radiobutton #TB1.rb5, "1", rad1, dummy, 110, 170, 35, 20
   radiobutton #TB1.rb19, "X", rad1, dummy, 150, 170, 35, 20
   radiobutton #TB1.rb33, "2", rad1, dummy, 190, 170, 35, 20
   statictext  #TB1.st5, "????a? 5??", 15, 170, 80, 20

   groupbox    #TB1.gb6, "", 10, 190, 215, 35
   radiobutton #TB1.rb6, "1", rad1, dummy, 110, 200, 35, 20
   radiobutton #TB1.rb20, "X", rad1, dummy, 150, 200, 35, 20
   radiobutton #TB1.rb34, "2", rad1, dummy, 190, 200, 35, 20
   statictext  #TB1.st6, "????a? 6??", 15, 200, 80, 20

   groupbox    #TB1.gb7, "", 10, 220, 215, 35
   radiobutton #TB1.rb7, "1", rad1, dummy, 110, 230, 35, 20
   radiobutton #TB1.rb21, "X", rad1, dummy, 150, 230, 35, 20
   radiobutton #TB1.rb35, "2", rad1, dummy, 190, 230, 35, 20
   statictext  #TB1.st7, "????a? 7??", 15, 230, 80, 20

   groupbox    #TB1.gb8, "", 10, 250, 215, 35
   radiobutton #TB1.rb8, "1", rad1, dummy, 110, 260, 35, 20
   radiobutton #TB1.rb22, "X", rad1, dummy, 150, 260, 35, 20
   radiobutton #TB1.rb36, "2", rad1, dummy, 190, 260, 35, 20
   statictext  #TB1.st8, "????a? 8??", 15, 260, 80, 20

   groupbox    #TB1.gb9, "", 10, 280, 215, 35
   radiobutton #TB1.rb9, "1", rad1, dummy, 110, 290, 35, 20
   radiobutton #TB1.rb23, "X", rad1, dummy, 150, 290, 35, 20
   radiobutton #TB1.rb37, "2", rad1, dummy, 190, 290, 35, 20
   statictext  #TB1.st9, "????a? 9??", 15, 290, 80, 20

   groupbox    #TB1.gb10, "", 10, 310, 215, 35
   radiobutton #TB1.rb10, "1", rad1, dummy, 110, 320, 35, 20
   radiobutton #TB1.rb24, "X", rad1, dummy, 150, 320, 35, 20
   radiobutton #TB1.rb38, "2", rad1, dummy, 190, 320, 35, 20
   statictext  #TB1.st10, "????a? 10??", 11, 320, 80, 20

   groupbox    #TB1.gb11, "", 10, 340, 215, 35
   radiobutton #TB1.rb11, "1", rad1, dummy, 110, 350, 35, 20
   radiobutton #TB1.rb25, "X", rad1, dummy, 150, 350, 35, 20
   radiobutton #TB1.rb39, "2", rad1, dummy, 190, 350, 35, 20
   statictext  #TB1.st11, "????a? 11??", 15, 350, 80, 20

   groupbox    #TB1.gb12, "", 10, 370, 215, 35
   radiobutton #TB1.rb12, "1", rad1, dummy, 110, 380, 35, 20
   radiobutton #TB1.rb26, "X", rad1, dummy, 150, 380, 35, 20
   radiobutton #TB1.rb40, "2", rad1, dummy, 190, 380, 35, 20
   statictext  #TB1.st12, "????a? 1??", 15, 380, 80, 20

   groupbox    #TB1.gb13, "", 10, 400, 215, 35
   radiobutton #TB1.rb13, "1", rad1, dummy, 110, 410, 35, 20
   radiobutton #TB1.rb27, "X", rad1, dummy, 150, 410, 35, 20
   radiobutton #TB1.rb41, "2", rad1, dummy, 190, 410, 35, 20
   statictext  #TB1.st13, "????a? 1??", 15, 410, 80, 20

   groupbox    #TB1.gb14, "", 10, 430, 215, 35
   radiobutton #TB1.rb14, "1", rad1, dummy, 110, 440, 35, 20
   radiobutton #TB1.rb28, "X", rad1, dummy, 150, 440, 35, 20
   radiobutton #TB1.rb42, "2", rad1, dummy, 190, 440, 35, 20
   statictext  #TB1.st14, "????a? 14??", 15, 440, 80, 20

   OPEN "??sa???? Sta?e??? St????" FOR WINDOW AS #TB1

   #TB1 "trapclose [STOPIT]"

   FOR  S = 1 TO 14
     tb$= "#TB1.rb"+STR$(S)
     #tb$ "reset"
   NEXT
   #TB1 "font consolas 10"

[loop]
   wait

[STOPIT]
   close #TB1
END

SUB rad1 handle$
   #handle$ "set"
   #handle$, "value? result$"
   print handle$;"    ";result$
END SUB



[Walt Decker]

I assume that you are replacing all the combo boxes with radio buttons.

Try this:
'
'NOmainWIN

WS.GROUP          = HEXDEC("&H00020000")
WS.TABSTOP        = HEXDEC("&H00010000")
BS.RADIOBUTTON     = HEXDEC("&H00000004")
BS.AUTORADIOBUTTON = HEXDEC("&H00000009")

UpperLeftX = 200
UpperRightX = 200
WindowWidth = 600
WindowHdight = 1000

STYLEBITS #TB1.rb1, WS.TABSTOP OR WS.GROUP OR WS.RADIOBUTTON OR _
                   WS.AUTORADIOBUTTON, 0, 0, 0
STYLEBITS #TB1.rb15, WS.TABSTOP OR WS.RADIOBUTTON OR _
                   WS.AUTORADIOBUTTON, 0, 0, 0
STYLEBITS #TB1.rb26, WS.TABSTOP OR WS.RADIOBUTTON OR _
                   WS.AUTORADIOBUTTON, 0, 0, 0

statictext  #TB1.st1, "Áãþíáò 1ïò", 15, 50, 80, 20
radiobutton #TB1.rb1, "1", RDO.CLICK, RDO.CLICK, 110, 50, 35, 20
radiobutton #TB1.rb15, "X", RDO.CLICK, RDO.CLICK, 150, 50, 35, 20
radiobutton #TB1.rb29, "2", RDO.CLICK, RDO.CLICK, 190, 50, 35, 20
'groupbox    #TB1.gb1, "", 10, 40, 210, 35

STYLEBITS #TB1.rb2, WS.TABSTOP OR WS.GROUP OR WS.RADIOBUTTON OR _
                   WS.AUTORADIOBUTTON, 0, 0, 0
STYLEBITS #TB1.rb16, WS.TABSTOP OR WS.RADIOBUTTON OR _
                   WS.AUTORADIOBUTTON, 0, 0, 0
STYLEBITS #TB1.rb30, WS.TABSTOP OR WS.RADIOBUTTON OR _
                   WS.AUTORADIOBUTTON, 0, 0, 0

statictext  #TB1.st2, "Áãþíáò 2ïò", 15, 80, 80, 20
radiobutton #TB1.rb2, "1", RDO.CLICK, RDO.CLICK, 110, 80, 35, 20
radiobutton #TB1.rb16, "X", RDO.CLICK, RDO.CLICK, 150, 80, 35, 20
radiobutton #TB1.rb30, "2", RDO.CLICK, RDO.CLICK, 190, 80, 35, 20

OPEN "ÅéóáãùãÞ ÓôáèåñÞò ÓôÞëçò" FOR WINDOW AS #TB1

   #TB1 "trapclose [STOPIT]"
   #TB1 "font consolas 10"


wait

[STOPIT]
close #TB1
end

'--------------------------------------------------------
'--------------------------------------------------------

SUB RDO.CLICK RdoHndl$

NumChrs = 0
Hndl    = 0

Title$ = ""

PRINT #RdoHndl$, "value? result$"
IF result$ = "set" THEN
 Hndl = HWND(#RdoHndl$)
 Title$ = SPACE$(30)
 CALLDLL #user32, "GetWindowTextA", Hndl AS ULONG, Title$ AS PTR, _
                   30 AS LONG, NumChars AS LONG
 PRINT LEFT$(Title$, NumChars)
END IF

END SUB
'
EDIT:  Since the symbols in the radio button are 1 character you can reduce the amount of space required for the controls by including the BS.PUSHLIKE = HEXDEC("&H00001000").  That makes it look like a button.