[425.xls]



' [mjSumple] のコード
'■■ タブを複数行で表示する ■■
'
'

'フォームを表示します
Sub frmSumple_Show()
           
    'フォームの表示
    frmSumple.Show

End Sub



' [frmSumple] のコード

Private Sub optBtn1_Click()
    'タブを複数行で表示します
    frmSumple.tabTest.MultiRow = True
End Sub

Private Sub optBtn2_Click()
    'タブを横一列に表示します。
    frmSumple.tabTest.MultiRow = False
End Sub