www.pudn.com > progressbar.rar > frmMsgbox.frm, change:2000-09-27,size:7201b


VERSION 5.00 
Begin VB.Form frmMsgbox  
   BackColor       =   &H00000000& 
   BorderStyle     =   0  'None 
   ClientHeight    =   3255 
   ClientLeft      =   0 
   ClientTop       =   0 
   ClientWidth     =   4695 
   Icon            =   "frmMsgbox.frx":0000 
   LinkTopic       =   "Form1" 
   ScaleHeight     =   3255 
   ScaleWidth      =   4695 
   ShowInTaskbar   =   0   'False 
   StartUpPosition =   1  'CenterOwner 
   Begin VB.Label lblEmail  
      BackColor       =   &H00000000& 
      BackStyle       =   0  'Transparent 
      Caption         =   "jotaf98@hotmail.com" 
      BeginProperty Font  
         Name            =   "Times New Roman" 
         Size            =   12 
         Charset         =   0 
         Weight          =   700 
         Underline       =   -1  'True 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H00C0E0FF& 
      Height          =   375 
      Left            =   1740 
      TabIndex        =   6 
      Top             =   1920 
      Width           =   2175 
   End 
   Begin VB.Label Label4  
      Alignment       =   1  'Right Justify 
      BackColor       =   &H00000000& 
      BackStyle       =   0  'Transparent 
      Caption         =   "E-mail:" 
      BeginProperty Font  
         Name            =   "Times New Roman" 
         Size            =   12 
         Charset         =   0 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H0080C0FF& 
      Height          =   375 
      Left            =   780 
      TabIndex        =   5 
      Top             =   1920 
      Width           =   855 
   End 
   Begin VB.Label Label2  
      Alignment       =   2  'Center 
      BackColor       =   &H00000000& 
      BackStyle       =   0  'Transparent 
      Caption         =   "(Joćo F. S. Henriques)" 
      BeginProperty Font  
         Name            =   "Times New Roman" 
         Size            =   12 
         Charset         =   0 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H0080C0FF& 
      Height          =   255 
      Left            =   360 
      TabIndex        =   4 
      Top             =   1680 
      Width           =   3975 
   End 
   Begin VB.Label Label1  
      Alignment       =   2  'Center 
      BackColor       =   &H00000000& 
      BackStyle       =   0  'Transparent 
      Caption         =   "Made by Jotaf98" 
      BeginProperty Font  
         Name            =   "Times New Roman" 
         Size            =   12 
         Charset         =   0 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H0080C0FF& 
      Height          =   255 
      Left            =   360 
      TabIndex        =   3 
      Top             =   1440 
      Width           =   3975 
   End 
   Begin VB.Label lblVisitPSC  
      Alignment       =   2  'Center 
      BackColor       =   &H00000000& 
      BackStyle       =   0  'Transparent 
      Caption         =   "Visit Planet Source Code" 
      BeginProperty Font  
         Name            =   "Times New Roman" 
         Size            =   12 
         Charset         =   0 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H00C0E0FF& 
      Height          =   255 
      Left            =   1440 
      TabIndex        =   2 
      Top             =   2760 
      Width           =   3015 
   End 
   Begin VB.Shape Shape2  
      BackColor       =   &H00000000& 
      BorderColor     =   &H000080FF& 
      Height          =   255 
      Left            =   1440 
      Shape           =   4  'Rounded Rectangle 
      Top             =   2760 
      Width           =   3015 
   End 
   Begin VB.Label lblOk  
      Alignment       =   2  'Center 
      BackColor       =   &H00000000& 
      BackStyle       =   0  'Transparent 
      Caption         =   "OK" 
      BeginProperty Font  
         Name            =   "Times New Roman" 
         Size            =   12 
         Charset         =   0 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H00C0E0FF& 
      Height          =   255 
      Left            =   240 
      TabIndex        =   1 
      Top             =   2760 
      Width           =   975 
   End 
   Begin VB.Shape Shape1  
      BackColor       =   &H00000000& 
      BorderColor     =   &H000080FF& 
      Height          =   255 
      Left            =   240 
      Shape           =   4  'Rounded Rectangle 
      Top             =   2760 
      Width           =   975 
   End 
   Begin VB.Label Label3  
      Alignment       =   2  'Center 
      BackColor       =   &H00000000& 
      BackStyle       =   0  'Transparent 
      Caption         =   "If you found this control useful, please vote for me on Planet Source Code's Contest!" 
      BeginProperty Font  
         Name            =   "Times New Roman" 
         Size            =   12 
         Charset         =   0 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H00C0E0FF& 
      Height          =   855 
      Left            =   360 
      TabIndex        =   0 
      Top             =   360 
      Width           =   3975 
   End 
   Begin VB.Shape Shape4  
      BackColor       =   &H00000000& 
      BorderColor     =   &H000080FF& 
      Height          =   2175 
      Left            =   240 
      Shape           =   4  'Rounded Rectangle 
      Top             =   240 
      Width           =   4215 
   End 
End 
Attribute VB_Name = "frmMsgbox" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
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 Const SW_SHOWNORMAL = 1 
 
Private Sub lblOk_Click() 
    'Close this window 
    Unload Me 
End Sub 
 
Private Sub lblVisitPSC_Click() 
    'Open PSC's page with the default web browser 
    ShellExecute 0&, vbNullString, "http://www.planet-source-code.com", vbNullString, "C:\", SW_SHOWNORMAL 
End Sub 
 
Private Sub lblEmail_Click() 
    'Send me an e-mail 
    ShellExecute 0&, vbNullString, "mailto:jotaf98@hotmail.com", vbNullString, "C:\", SW_SHOWNORMAL 
End Sub