[420.xls]



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

'フォームを表示します
Sub frmSumple_Show()
    '任意のアイコンを表示させます。
    frmSumple.cmdBtn1.MousePointer = fmMousePointerCustom
    frmSumple.cmdBtn1.MouseIcon = LoadPicture("c:\Windows\Forms\Configs\Mapif5l.ico")
       
    'フォームの表示
    frmSumple.Show

End Sub



' [frmSumple] のコード

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