home *** CD-ROM | disk | FTP | other *** search
/ The Mother of All Windows Books / CD-MOM.iso / cd_mom / newsletr / vbz / vbz1-3 / vbzabout.frm < prev    next >
Text File  |  1993-06-24  |  3KB  |  109 lines
  1. VERSION 2.00
  2. Begin Form frmAbout 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Form2"
  5.    Height          =   2895
  6.    Left            =   1605
  7.    LinkMode        =   1  'Source
  8.    LinkTopic       =   "Form2"
  9.    MaxButton       =   0   'False
  10.    MinButton       =   0   'False
  11.    ScaleHeight     =   2490
  12.    ScaleWidth      =   5130
  13.    Top             =   1845
  14.    Width           =   5250
  15.    Begin CommandButton Command1 
  16.       Caption         =   "Ok"
  17.       Height          =   495
  18.       Left            =   1920
  19.       TabIndex        =   4
  20.       Top             =   1920
  21.       Width           =   1215
  22.    End
  23.    Begin PictureBox Picture1 
  24.       AutoSize        =   -1  'True
  25.       BorderStyle     =   0  'None
  26.       Height          =   615
  27.       Left            =   120
  28.       ScaleHeight     =   615
  29.       ScaleWidth      =   615
  30.       TabIndex        =   0
  31.       Top             =   120
  32.       Width           =   615
  33.    End
  34.    Begin Label Label3 
  35.       Alignment       =   2  'Center
  36.       Caption         =   "VBZ: The Electronic Journal on Visual Basic"
  37.       FontBold        =   -1  'True
  38.       FontItalic      =   0   'False
  39.       FontName        =   "MS Sans Serif"
  40.       FontSize        =   9.75
  41.       FontStrikethru  =   0   'False
  42.       FontUnderline   =   0   'False
  43.       ForeColor       =   &H00000000&
  44.       Height          =   495
  45.       Left            =   1200
  46.       TabIndex        =   3
  47.       Top             =   1200
  48.       Width           =   3255
  49.    End
  50.    Begin Label Label2 
  51.       Alignment       =   2  'Center
  52.       Caption         =   "Label1"
  53.       FontBold        =   -1  'True
  54.       FontItalic      =   0   'False
  55.       FontName        =   "MS Sans Serif"
  56.       FontSize        =   9.75
  57.       FontStrikethru  =   0   'False
  58.       FontUnderline   =   0   'False
  59.       ForeColor       =   &H00000000&
  60.       Height          =   255
  61.       Left            =   840
  62.       TabIndex        =   2
  63.       Top             =   720
  64.       Width           =   4095
  65.    End
  66.    Begin Label Label1 
  67.       Alignment       =   2  'Center
  68.       Caption         =   "Label1"
  69.       FontBold        =   -1  'True
  70.       FontItalic      =   0   'False
  71.       FontName        =   "MS Sans Serif"
  72.       FontSize        =   18
  73.       FontStrikethru  =   0   'False
  74.       FontUnderline   =   -1  'True
  75.       ForeColor       =   &H00000080&
  76.       Height          =   375
  77.       Left            =   840
  78.       TabIndex        =   1
  79.       Top             =   240
  80.       Width           =   4095
  81.    End
  82. End
  83. DefInt A-Z
  84.  
  85. Declare Function GetSystemMenu Lib "User" (ByVal hwnd, ByVal bRevert)
  86. Declare Sub RemoveMenu Lib "User" (ByVal hMenu, ByVal nPosition, ByVal wFlags)
  87.  
  88. Const MF_BYPOSITION = &H400
  89.  
  90. Sub Command1_Click ()
  91.     Unload frmAbout
  92. End Sub
  93.  
  94. Sub Form_Load ()
  95.     HSysMenu = GetSystemMenu(hwnd, 0)
  96.     RemoveMenu HSysMenu, 8, MF_BYPOSITION
  97.     RemoveMenu HSysMenu, 7, MF_BYPOSITION
  98.     Picture1.Picture = Screen.ActiveForm.Icon
  99.     ProgInfo$ = Screen.ActiveForm.Tag
  100.     Ver = InStr(ProgInfo$, "V")
  101.     Program$ = Left$(ProgInfo$, Ver - 2)
  102.     Version$ = Mid$(ProgInfo$, Ver)
  103.     Caption = "About " + Program$ + "..."
  104.     Label1.Caption = Program$ + "!"
  105.     Label2.Caption = Version$
  106.     frmAbout.Show 1
  107. End Sub
  108.  
  109.