🚀 go-pugleaf

VB４．０のマニュアルに載ってた蝶アニメーションの
プログラムを作ったのですが、はばたきません。
タイマーのコードが悪いことはわかるのですが、
どこが悪いか分かりません。

どなたか教えて下さい。


↓作成したコード

Private Sub Timer1_Timer()
    Static PickBmp As Integer
    '蝶のピクチャを移動します
    main.Move main.Left + 20, main.Top - 5
    If PickBmp Then
         '羽の開いた蝶のピクチャを表示します
         MainPicture = OpenWings.Picture
    Else
         '羽の閉じた蝶のピクチャを表示します
         MainPicture = CloseWings.Picture
    End If
         '表示状態を切り替えます
         PickBmp = Not PickBmp
End Sub


↓サンプルのコード

Private Sub Timer1_Timer()
     Static PickBmp As Integer
     ' 蝶のピクチャを移動します。
     Main.Move Main.Left + 20, Main.Top - 5
     ' More メソッドを次のように変更すると蝶の飛び方が変わります。
     ' Main.Move (Main.Left + 20) Mod ScaleWidth, (Main.Top - 5 +
ScaleHeight) Mod ScaleHeight
     If PickBmp Then
        Main.Picture = OpenWings.Picture  ' 羽を開いた蝶のピクチャを表示しま
す。
     Else
        Main.Picture = CloseWings.Picture ' 羽を閉じた蝶のピクチャを表示しま
す。
     End If
     PickBmp = Not PickBmp                ' 値を切り替えます。
End Sub