struts2 + hibernate + ms access ><

VBA---radio btn

Form --radio btn
========================
Option Explicit

Public Property Get Ori() As Integer
Select Case True
Case Me.rbLandscape.Value
Ori = 1
Case Me.rbPortrait.Value
Ori = 0
End Select
End Property

Public Property Let Ori(ByVal sNewValue As Integer)
If UCase$(sNewValue) = 1 Then
Me.rbLandscape = True
Else
Me.rbPortrait = True
End If
End Property


Private Sub btnOrientationConfirm_Click()
Me.Hide
End Sub