frmabout.frm

从网页里下载文章

VERSION 5.00
Begin VB.Form Frmabout 
   Caption         =   "About Age of Production News Station"
   ClientHeight    =   2550
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   ForeColor       =   &H00C0C0C0&
   Icon            =   "Frmabout.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2550
   ScaleWidth      =   4680
   StartUpPosition =   2  'CenterScreen
   Begin VB.Label Label4 
      Caption         =   "http://www.ageofproductions.com"
      ForeColor       =   &H00FFFF00&
      Height          =   255
      Left            =   1080
      MouseIcon       =   "Frmabout.frx":000C
      MousePointer    =   4  'Icon
      TabIndex        =   3
      Top             =   2040
      Width           =   2535
   End
   Begin VB.Label Label3 
      Caption         =   "Author: -_-NeCrO-_- (AOP)"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   1200
      TabIndex        =   2
      Top             =   1560
      Width           =   2415
   End
   Begin VB.Label Label2 
      Caption         =   "Beta Version: 1.0"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   1560
      TabIndex        =   1
      Top             =   1080
      Width           =   1575
   End
   Begin VB.Line Line1 
      X1              =   0
      X2              =   4680
      Y1              =   840
      Y2              =   840
   End
   Begin VB.Label Label1 
      Caption         =   "News Station"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   960
      TabIndex        =   0
      Top             =   240
      Width           =   3375
   End
   Begin VB.Image Image1 
      Height          =   480
      Left            =   120
      Picture         =   "Frmabout.frx":044E
      Top             =   120
      Width           =   480
   End
End
Attribute VB_Name = "Frmabout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Label4.FontBold = False
Label4.FontUnderline = False
Me.Show
StayOnTop Me
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Label4.FontUnderline = False
Me.MousePointer = 0
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Load frmnews
Unload Frmabout
End Sub

Private Sub Label4_Click()
Label4.FontBold = True
Load frmbrowser
Unload Frmabout
Unload frmnews
End Sub

Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Label4.FontUnderline = True
Label4.FontBold = False
If Label4.FontUnderline = True _
Then
Label4.MousePointer = 4
End If
End Sub
Sub StayOnTop(frm As Form)
On Error GoTo don

Dim success%
success% = SetWindowPos(frm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, Flags)
don:
End Sub