VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   2475
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4275
   LinkTopic       =   "Form1"
   ScaleHeight     =   2475
   ScaleWidth      =   4275
   StartUpPosition =   3  '窗口缺省
   Begin VB.Image Image3 
      Height          =   480
      Left            =   3000
      Picture         =   "SY07-12.frx":0000
      Top             =   960
      Width           =   480
   End
   Begin VB.Image Image2 
      Height          =   480
      Left            =   720
      Picture         =   "SY07-12.frx":0442
      Top             =   1440
      Width           =   480
   End
   Begin VB.Image Image1 
      Height          =   480
      Left            =   720
      Picture         =   "SY07-12.frx":0884
      Top             =   480
      Width           =   480
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single)
    If Button = vbLeftButton Then Image1.Drag 1
End Sub

Private Sub Image2_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single)
    If Button = vbLeftButton Then Image2.Drag 1
End Sub

Private Sub Image3_DragDrop(Source As Control, X As Single, y As Single)
    Dim i As Integer
    If Source.Name = "Image1" Then
        i = MsgBox("要删除文件吗？", vbOKCancel)
    Else
        i = MsgBox("要删除小纸条吗？", vbOKCancel)
    End If
    If i = 1 Then Source.Visible = False
End Sub
