casfrm.frm

 VERSION 5.00
Begin VB.Form Form1
   BackColor       =   &H00000000&
   Caption         =   "Cascade"
   ClientHeight    =   5220
   ClientLeft      =   1680
   ClientTop       =   1485
   ClientWidth     =   6225
   LinkTopic       =   "Form1"
   ScaleHeight     =   5220
   ScaleWidth      =   6225
   Begin VB.CommandButton Command1
      Caption         =   "Exit"
      Height          =   555
      Left            =   1800
      TabIndex        =   0
      Top             =   2640
      Width           =   1215
   End
   Begin VB.Shape Shape1
      Height          =   135
      Left            =   0
      Top             =   7920
      Width           =   9495
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command1_Click()
   
    End
   
End Sub

Private Sub Form_Load()
   
    'there was a glitch in vb that
    'wouldnt load the form so this fixes it
   
    MsgBox "If form does not load properly please move your mouse cursor on the title bar of the form. Also to reset the form put the cursor over the command button. Gracias", , "Cascade"
   
    Command1.Move 1680, 2640
   
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    'moves the ghosted image along the screen
   
    Command1.Move X, Y

    If Command1.Top < Shape1.Top Then
        Command1.Move 1680, 2640
    End If
   
End Sub

Project Homepage: