frmabout.frm

改变硬盘图标,vb源程序 改变硬盘图标,vb源程序

VERSION 5.00
Begin VB.Form frmAbout 
   BackColor       =   &H0080C0FF&
   BorderStyle     =   0  'None
   Caption         =   "About"
   ClientHeight    =   2340
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   7080
   LinkTopic       =   "Form1"
   ScaleHeight     =   2340
   ScaleWidth      =   7080
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Begin VB.CommandButton Command1 
      Height          =   315
      Left            =   2880
      Picture         =   "frmAbout.frx":0000
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   1920
      Width           =   855
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "Translated by: oMeN -  [e-mail]"
      BeginProperty Font 
         Name            =   "Matisse ITC"
         Size            =   17.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   360
      MouseIcon       =   "frmAbout.frx":030A
      TabIndex        =   1
      Top             =   1080
      Width           =   6135
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "Author: Igor Canadi -  [e-mail]  "
      BeginProperty Font 
         Name            =   "Matisse ITC"
         Size            =   17.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   480
      MouseIcon       =   "frmAbout.frx":045C
      TabIndex        =   0
      Top             =   480
      Width           =   6615
   End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Label2_Click()

End Sub