[422.xls]



' [mjSumple] のコード
'■■ タブの表示位置を設定する ■■
'
'

'フォームを表示します
Sub frmSumple_Show()
    
    '既定の値をセット
    frmSumple.optBtn1.Value = True
       
    'フォームの表示
    frmSumple.Show

End Sub



' [frmSumple] のコード

Private Sub optBtn1_Click()
    'タブの表示位置を変更します
    frmSumple.tabTest.TabOrientation = fmTabOrientationTop
End Sub

Private Sub optBtn2_Click()
    'タブの表示位置を変更します
    frmSumple.tabTest.TabOrientation = fmTabOrientationBottom
End Sub

Private Sub optBtn3_Click()
    'タブの表示位置を変更します
    frmSumple.tabTest.TabOrientation = fmTabOrientationLeft
End Sub

Private Sub optBtn4_Click()
    'タブの表示位置を変更します
    frmSumple.tabTest.TabOrientation = fmTabOrientationRight
End Sub