Option Explicit

'ネイティブコードコンパイルでexeを作成すると
'処理が格段に向上します


'モノクロ処理クラスを使用します
Private WithEvents mShade  As MonoShade

'フォームをロードします
Private Sub Form_Load()
    'クラスのインスタンスを生成します
    Set mShade = New MonoShade
    
    '256色ビットマップファイルを読み込みます
    '(Windowsフォルダの雲.bmpを参照)
    mShade.Inc.Load Picture1, App.Path & "\image2.bmp"
    
End Sub

'処理の進行状況を知らせます
Private Sub mShade_InProcessPer(per As Integer)
    Form1.Caption = Format(per, "###") & "%"
End Sub

'ピクチャボックスをクリックしました
Private Sub Picture1_Click()
    Dim lngTick As Long
    
    '開始時間を保存します(ミリ秒)
    lngTick = GetTickCount
    
    'マウスポインタを砂時計にします
    Picture1.MousePointer = 13
    'ぼかし処理を開始します
    mShade.Excite Picture1
    'マウスポインタを通常に戻します
    Picture1.MousePointer = 0
    
    '処理に費やした時間を表示します
    Picture1.Font.Size = 20
    Picture1.ForeColor = vbRed
    Picture1.CurrentX = 0
    Picture1.CurrentY = 0
    Picture1.Print "Second = " & (GetTickCount - lngTick) / 1000
End Sub