[416.xls]



' [mjSumple] のコード
'■■ コマンドボタンでピクチャの位置を表示文字列を基準に設定する ■■
'
'

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

End Sub


' [frmSumple] のコード

Private Sub optBtn1_Click()
    frmSumple.cmdTest.PicturePosition = fmPicturePositionBelowCenter
End Sub

Private Sub optBtn2_Click()
    frmSumple.cmdTest.PicturePosition = fmPicturePositionAboveCenter
End Sub

Private Sub optBtn3_Click()
    frmSumple.cmdTest.PicturePosition = fmPicturePositionAboveRight
End Sub

Private Sub optBtn4_Click()
    frmSumple.cmdTest.PicturePosition = fmPicturePositionBelowLeft
End Sub