[407.xls]



' [mjSumple] のコード
'■■ チェックボックスでキャプションの位置を変更する ■■
'
'

'フォームを表示します
Sub frmSumple_Show()
    
    'デフォルトの値設定
    frmSumple.optBtn1.Value = 1
    
   'フォームの表示
    frmSumple.Show

End Sub



' [frmSumple] のコード

'■■ チェックボックスでキャプションの位置を変更する ■■
'
'
Private Sub optBtn1_Click()
    frmSumple.chkTest.Alignment = fmAlignmentRight
End Sub

Private Sub optBtn2_Click()
    frmSumple.chkTest.Alignment = fmAlignmentLeft
End Sub