home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD90538172000.psc / frmAbout.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-15  |  6.3 KB  |  201 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAbout 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "About Terminator"
  5.    ClientHeight    =   2676
  6.    ClientLeft      =   48
  7.    ClientTop       =   336
  8.    ClientWidth     =   3504
  9.    Icon            =   "frmAbout.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   2676
  14.    ScaleWidth      =   3504
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.CommandButton Command1 
  17.       Caption         =   "Ok"
  18.       BeginProperty Font 
  19.          Name            =   "Comic Sans MS"
  20.          Size            =   8.4
  21.          Charset         =   0
  22.          Weight          =   400
  23.          Underline       =   0   'False
  24.          Italic          =   0   'False
  25.          Strikethrough   =   0   'False
  26.       EndProperty
  27.       Height          =   375
  28.       Left            =   1200
  29.       TabIndex        =   4
  30.       Top             =   1920
  31.       Width           =   975
  32.    End
  33.    Begin VB.Label Label8 
  34.       Caption         =   "for updates and News."
  35.       BeginProperty Font 
  36.          Name            =   "Comic Sans MS"
  37.          Size            =   8.4
  38.          Charset         =   0
  39.          Weight          =   400
  40.          Underline       =   0   'False
  41.          Italic          =   0   'False
  42.          Strikethrough   =   0   'False
  43.       EndProperty
  44.       Height          =   255
  45.       Left            =   120
  46.       TabIndex        =   8
  47.       Top             =   1320
  48.       Width           =   2895
  49.    End
  50.    Begin VB.Label Label7 
  51.       Caption         =   "http://hem1.passagen.se/tmo"
  52.       ForeColor       =   &H00000000&
  53.       Height          =   255
  54.       Left            =   720
  55.       MouseIcon       =   "frmAbout.frx":0442
  56.       MousePointer    =   99  'Custom
  57.       TabIndex        =   7
  58.       Top             =   1080
  59.       Width           =   2175
  60.    End
  61.    Begin VB.Label Label6 
  62.       Caption         =   "Visit"
  63.       BeginProperty Font 
  64.          Name            =   "Comic Sans MS"
  65.          Size            =   8.4
  66.          Charset         =   0
  67.          Weight          =   400
  68.          Underline       =   0   'False
  69.          Italic          =   0   'False
  70.          Strikethrough   =   0   'False
  71.       EndProperty
  72.       Height          =   255
  73.       Left            =   120
  74.       TabIndex        =   6
  75.       Top             =   1080
  76.       Width           =   375
  77.    End
  78.    Begin VB.Label Label5 
  79.       Caption         =   "This is FREEWARE."
  80.       BeginProperty Font 
  81.          Name            =   "Comic Sans MS"
  82.          Size            =   8.4
  83.          Charset         =   0
  84.          Weight          =   400
  85.          Underline       =   0   'False
  86.          Italic          =   0   'False
  87.          Strikethrough   =   0   'False
  88.       EndProperty
  89.       Height          =   255
  90.       Left            =   120
  91.       TabIndex        =   5
  92.       Top             =   120
  93.       Width           =   2295
  94.    End
  95.    Begin VB.Label Label4 
  96.       Caption         =   "by"
  97.       BeginProperty Font 
  98.          Name            =   "Comic Sans MS"
  99.          Size            =   9.6
  100.          Charset         =   0
  101.          Weight          =   400
  102.          Underline       =   0   'False
  103.          Italic          =   0   'False
  104.          Strikethrough   =   0   'False
  105.       EndProperty
  106.       Height          =   255
  107.       Left            =   1800
  108.       TabIndex        =   3
  109.       Top             =   600
  110.       Width           =   255
  111.    End
  112.    Begin VB.Label Label3 
  113.       Caption         =   "tmo"
  114.       BeginProperty Font 
  115.          Name            =   "Comic Sans MS"
  116.          Size            =   9.6
  117.          Charset         =   0
  118.          Weight          =   400
  119.          Underline       =   -1  'True
  120.          Italic          =   0   'False
  121.          Strikethrough   =   0   'False
  122.       EndProperty
  123.       Height          =   255
  124.       Left            =   2160
  125.       MouseIcon       =   "frmAbout.frx":074C
  126.       MousePointer    =   99  'Custom
  127.       TabIndex        =   2
  128.       Top             =   600
  129.       Width           =   375
  130.    End
  131.    Begin VB.Label Label2 
  132.       AutoSize        =   -1  'True
  133.       Caption         =   "mazze"
  134.       BeginProperty Font 
  135.          Name            =   "Comic Sans MS"
  136.          Size            =   9.6
  137.          Charset         =   0
  138.          Weight          =   400
  139.          Underline       =   0   'False
  140.          Italic          =   0   'False
  141.          Strikethrough   =   0   'False
  142.       EndProperty
  143.       Height          =   270
  144.       Left            =   1200
  145.       TabIndex        =   1
  146.       Top             =   600
  147.       Width           =   555
  148.    End
  149.    Begin VB.Label Label1 
  150.       AutoSize        =   -1  'True
  151.       Caption         =   "Created  to"
  152.       BeginProperty Font 
  153.          Name            =   "Comic Sans MS"
  154.          Size            =   9.6
  155.          Charset         =   0
  156.          Weight          =   400
  157.          Underline       =   0   'False
  158.          Italic          =   0   'False
  159.          Strikethrough   =   0   'False
  160.       EndProperty
  161.       Height          =   270
  162.       Left            =   120
  163.       TabIndex        =   0
  164.       Top             =   600
  165.       Width           =   1020
  166.    End
  167. Attribute VB_Name = "frmAbout"
  168. Attribute VB_GlobalNameSpace = False
  169. Attribute VB_Creatable = False
  170. Attribute VB_PredeclaredId = True
  171. Attribute VB_Exposed = False
  172. Private Sub Command1_Click()
  173.     Unload Me
  174. End Sub
  175. Private Sub Form_Load()
  176.     RemoveCancel Me
  177.     Label3.ForeColor = vbBlue
  178.     Label7.ForeColor = vbBlue
  179. End Sub
  180. Private Sub Label3_Click()
  181.     Dim lRet As Long
  182.     Dim sText As String
  183.     sText = "mailto:tmo@hem1.passagen.se"
  184.     lRet = shellexecute(hwnd, "open", sText, vbNull, vbNull, SW_SHOWNORMAL)
  185.     If lRet >= 0 And lRet <= 32 Then
  186.         MsgBox "Error!! Can't open Your Mailprog..."
  187.     End If
  188. End Sub
  189. Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  190.     Label1.ToolTipText = "tmo@hem1.passagen.se"
  191. End Sub
  192. Private Sub Label7_Click()
  193.    Dim lRet As Long
  194.     Dim sText As String
  195.     sText = "http://hem1.passagen.se/tmo"
  196.     lRet = shellexecute(hwnd, "open", sText, vbNull, vbNull, SW_SHOWNORMAL)
  197.     If lRet >= 0 And lRet <= 32 Then
  198.         MsgBox "Error!! Can't open Your Mailprog..."
  199.     End If
  200. End Sub
  201.