[431.xls]



' [mjSumple] のコード
'■■ スクロールバーの表示方向を設定する ■■
'
'

'フォームを表示します
Sub frmSumple_Show()
           
    'デフォルト表示
    With frmSumple.scrTest
        .Height = 50
        .Width = 150
    End With
    
    'フォームの表示
    frmSumple.Show

End Sub



' [frmSumple] のコード

Private Sub optBtn1_Click()
    With scrTest
        .Orientation = fmOrientationHorizontal
    End With
End Sub

Private Sub optBtn2_Click()
    With scrTest
        .Orientation = fmOrientationVertical
    End With
End Sub