Private Property Get FormAction() As Long
       FormAction = tmpAction
End Property
 
Private Property Let FormAction(Byval nVal As Long)
     tmpAction = nVal
     Select Case nVal
              Case 1 ' .........
              Case 2 ' .........
              Case 3 ' .........
      End Select
End Property