Caption = "Click on Any Image or Click and Drag A Mail Box into the Garbage Can"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00800000&
Height = 675
Left = 2700
TabIndex = 3
Top = 3120
Width = 2055
End
Begin Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "ctMove is a custom control that will allow the programmer to assign a series of bitmap images to the control and then have those images played back when the control is clicked."
ForeColor = &H00800000&
Height = 675
Left = 240
TabIndex = 1
Top = 180
Width = 7095
End
End
Dim nCrntMail As Integer
Sub bt_exit_Click ()
Unload w_move_demo
End Sub
Sub Command1_Click ()
nCrntMail = 1
ctmove_mail.Sequence = "1,4,3,6,9,12,1"
End Sub
Sub Command2_Click ()
nCrntMail = 2
ctmove_mail.Sequence = "1,4,7,10,1"
End Sub
Sub Command3_Click ()
nCrntMail = 3
ctmove_mail.Sequence = "1,4,2,5,8,11,1"
End Sub
Sub ctMove_mail_EndSequence ()
If (nCrntMail = 1) Then
ctClip1 = 2
ElseIf (nCrntMail = 2) Then
ctClip2 = 2
ElseIf (nCrntMail = 3) Then
ctClip3 = 2
End If
End Sub
Sub ctMove1_DragDrop (Source As Control, X As Single, Y As Single)