home *** CD-ROM | disk | FTP | other *** search
/ The Mother of All Windows Books / CD-MOM.iso / cd_mom / newsletr / vbz / vbz1-3 / marq2.frm < prev    next >
Text File  |  1993-06-24  |  2KB  |  70 lines
  1. VERSION 2.00
  2. Begin Form frmSave 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   0  'None
  5.    ControlBox      =   0   'False
  6.    FontBold        =   -1  'True
  7.    FontItalic      =   0   'False
  8.    FontName        =   "Times New Roman"
  9.    FontSize        =   39.75
  10.    FontStrikethru  =   0   'False
  11.    FontUnderline   =   0   'False
  12.    Height          =   4410
  13.    Icon            =   0
  14.    KeyPreview      =   -1  'True
  15.    Left            =   1095
  16.    LinkTopic       =   "Form1"
  17.    MaxButton       =   0   'False
  18.    MinButton       =   0   'False
  19.    MousePointer    =   2  'Cross
  20.    ScaleHeight     =   4005
  21.    ScaleWidth      =   4845
  22.    Top             =   1305
  23.    Width           =   4965
  24.    WindowState     =   2  'Maximized
  25.    Begin TextBox txtSaverText 
  26.       BackColor       =   &H00000000&
  27.       Enabled         =   0   'False
  28.       FontBold        =   -1  'True
  29.       FontItalic      =   0   'False
  30.       FontName        =   "Times New Roman"
  31.       FontSize        =   39
  32.       FontStrikethru  =   0   'False
  33.       FontUnderline   =   0   'False
  34.       ForeColor       =   &H00FFFFFF&
  35.       Height          =   1080
  36.       Left            =   2205
  37.       TabIndex        =   0
  38.       Text            =   "Text1"
  39.       Top             =   1365
  40.       Width           =   450
  41.    End
  42.    Begin Timer timSave 
  43.       Enabled         =   0   'False
  44.       Left            =   120
  45.       Top             =   120
  46.    End
  47. End
  48. DefInt A-Z
  49.  
  50. Sub Form_KeyDown (KeyCode As Integer, Shift As Integer)
  51.     UserEvent
  52. End Sub
  53.  
  54. Sub Form_Load ()
  55.     Ok = DoEvents()
  56. End Sub
  57.  
  58. Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  59.     UserEvent
  60. End Sub
  61.  
  62. Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  63.     UserEvent
  64. End Sub
  65.  
  66. Sub timSave_Timer ()
  67.     TimerProc
  68. End Sub
  69.  
  70.