The example displays a name in response to choosing an option button. To try this example, draw a label and an option button on a blank form. Set the Name property of the option button to "Opt" and the Index property to 0. Paste the code over the Form_Load procedure and then press F5 to run the program.
Sub Form_Load ()
Opt(0).Caption = "Shipper 1"
Load Opt(1)
Opt(1).Caption = "Shipper 2"
Opt(1).Top = Opt(0).Top + Opt(1).Height * 1.5
Opt(1).Visible = True
Load Opt(2)
Opt(2).Caption = "Shipper 3"
Opt(2).Top = Opt(1).Top + Opt(1).Height * 1.5
Opt(2).Visible = True
Opt(0).Value = True
End Sub
Sub Option1_Click (Index As Integer)
Label1.Caption = "Shipper: " & Choose(Index, "Speedy", "United", "Federal")
End Sub