Private Sub Check1_Click()
    If Check1.Value = 1 Then
        Frame1.Enabled = True
    Else
        Frame1.Enabled = False
    End If
End Sub
Private Sub Check2_Click()
    If Check2.Value = 1 Then
        Frame2.Enabled = True
    Else
        Frame2.Enabled = False
    End If
End Sub
Private Sub Command1_Click()
    If Check1.Value = 1 Then
        'If  ? = True Then
            s = "古典音乐"
        Else
            s = "流行音乐"
        End If
    End If
    If Check2.Value = 1 Then
        'If ? = True Then
            s = s & "篮球"
        Else
            s = s & "羽毛球"
        End If
    End If
    'Label2.Caption = ?
End Sub
Private Sub Form_Load()
    Check1.Value = 1
    Check2.Value = 1
End Sub