Actually, I use calender control and combo box. The item list in the combo box is
Private Sub Form_Load()
combo1.additem "activity1"
combo1.additems " activity2"
End Sub
This items will list in the combo box. I just choose the items in the combo box for activity. Let say, I click the date in calender, and choose the items in combo box, let say activity2.So the sstab1 is true and I get the date information for activity2.
Private Sub Combo1_Click()
If Combo1.Text = "activity2." Then
SSTab1.Visible = True
end if

The click event for calender is :
Private Sub Cal1_Click()
'I want to put the code, that the first activity list is Activity1 in the combo box when I click the calender control
end sub