[419.xls]



' [mjSumple] のコード
'■■ コマンドボタンにマウスを近づけた時にマウスポインタの形を変える（標準の図形） ■■
'
'

'フォームを表示します
Sub frmSumple_Show()
    
    'マウスを近づけるとポインタが[?]になります
    frmSumple.MousePointer = fmMousePointerHelp
    
    'フォームの表示
    frmSumple.Show

End Sub



' [frmSumple] のコード

Private Sub cmdBtn1_Click()
    MsgBox ("クリックされました")
End Sub