Hello, everyone. I am using VBScript to write a user form, but now I have
a problem with my form. I am using one combobox to control the other combobox.
The second combobox' drop down menu changes according to the value of the
first combobox. But after I chose the values from the second combobox and
was entering data in other textboxes, I found the value chosen for the second
combobox disappeared. I really don't understand this. Is this a flaw of microsoft
outlook? Can anyone point out where goes wrong? Thanks!

The code are as follows:

Function Item_CustomPropertyChange(ByVal myPropName)
Set myPages = Item.GetInspector.ModifiedFormPages
Set objMain = myPages("P.2").Controls("txtMain")
Set objSub = myPages("P.2").Controls("txtSub")

Select Case objMain.Value
Case "BCA"
objSub.Clear
objSub.AddItem "BCA"
objSub.AddItem "KLD"
Case "HQ"
objSub.Clear
objSub.AddItem "Finance"
objSub.AddItem "OER"
Case "Net"
objSub.Clear
objSub.AddItem "Network"
objSub.AddItem "PC"
objSub.AddItem "Web"
End Select

End Function