1. 建立一个EXE工程，在窗体上放两个Frame框。
2. 分别放两组单选按钮表示性别和收入，注意每组单选按钮的组名要一样。
3. 在按钮中输入代码：

Sub Form1_Command1_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd)

   If Frame1.Visible Then

      Frame1.Visible = False

      Option1.Visible = False 'Frame只是起视觉上分组的作用

      Option2.Visible=False

   Else

      Frame1.Visible = True

      Option1.Visible = True

      Option2.Visible=true

   End If

End Sub

运行结果如图34：