home *** CD-ROM | disk | FTP | other *** search
/ Solo Programadores 22 / SOLO_22.iso / disk22 / vbasic / carga.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-04-29  |  806 b   |  28 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Ejemplo de los eventos Load y Unload"
  4.    ClientHeight    =   2955
  5.    ClientLeft      =   1140
  6.    ClientTop       =   1515
  7.    ClientWidth     =   4980
  8.    Height          =   3360
  9.    Left            =   1080
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   2955
  12.    ScaleWidth      =   4980
  13.    Top             =   1170
  14.    Width           =   5100
  15. Attribute VB_Name = "Form1"
  16. Attribute VB_Creatable = False
  17. Attribute VB_Exposed = False
  18. Private Sub Form_Load()
  19.   Form1.Left = (Screen.Width - Form1.Width) / 2
  20.   Form1.Top = (Screen.Height - Form1.Height) / 2
  21. End Sub
  22. Private Sub Form_Unload(Cancel As Integer)
  23.   If MsgBox("
  24. Desea salir?", vbOKCancel, "SALIDA") = vbCancel Then
  25.     Cancel = True
  26.   End If
  27. End Sub
  28.