VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "ClassSpray"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private WithEvents Opt_spray As MSForms.OptionButton
Attribute Opt_spray.VB_VarHelpID = -1
Private Lng_ind As Long

Public Property Let setOpt(New_opt As MSForms.OptionButton)
Set Opt_spray = New_opt 'オプションボタンオブジェクトの生成
End Property
Public Sub setNothing()
Set Opt_spray = Nothing
End Sub
Public Property Let setIndex(New_ind As Long)
Lng_ind = New_ind 'インデックスをセット
End Property
Private Sub Opt_spray_Click()
SheetCanvas.setPenSpray Lng_ind 'スプレー
End Sub