home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Nokia_Snak1869633302005.psc / SNAKE / frmAbout.frm < prev    next >
Text File  |  2005-03-30  |  5KB  |  151 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAbout 
  3.    AutoRedraw      =   -1  'True
  4.    BorderStyle     =   0  'None
  5.    ClientHeight    =   5310
  6.    ClientLeft      =   0
  7.    ClientTop       =   0
  8.    ClientWidth     =   8430
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   354
  11.    ScaleMode       =   3  'Pixel
  12.    ScaleWidth      =   562
  13.    ShowInTaskbar   =   0   'False
  14.    StartUpPosition =   2  'CenterScreen
  15.    Begin VB.PictureBox picLogo 
  16.       AutoRedraw      =   -1  'True
  17.       AutoSize        =   -1  'True
  18.       BorderStyle     =   0  'None
  19.       Height          =   1800
  20.       Left            =   -30
  21.       Picture         =   "frmAbout.frx":0000
  22.       ScaleHeight     =   1800
  23.       ScaleWidth      =   3930
  24.       TabIndex        =   5
  25.       Top             =   300
  26.       Width           =   3930
  27.       Begin VB.Label lblExplenations 
  28.          Alignment       =   2  'Center
  29.          BackStyle       =   0  'Transparent
  30.          Height          =   255
  31.          Left            =   120
  32.          TabIndex        =   6
  33.          Top             =   1200
  34.          Width           =   3735
  35.       End
  36.    End
  37.    Begin VB.PictureBox Picture1 
  38.       AutoRedraw      =   -1  'True
  39.       AutoSize        =   -1  'True
  40.       BorderStyle     =   0  'None
  41.       Height          =   750
  42.       Left            =   0
  43.       Picture         =   "frmAbout.frx":171A2
  44.       ScaleHeight     =   50
  45.       ScaleMode       =   3  'Pixel
  46.       ScaleWidth      =   260
  47.       TabIndex        =   2
  48.       Top             =   2100
  49.       Width           =   3900
  50.       Begin Snake_By_Umer.Button buttOK 
  51.          Height          =   375
  52.          Left            =   2640
  53.          TabIndex        =   3
  54.          Top             =   390
  55.          Width           =   1215
  56.          _extentx        =   2143
  57.          _extenty        =   661
  58.          lbl             =   "OK"
  59.       End
  60.       Begin VB.Label lblExplenations2 
  61.          BackStyle       =   0  'Transparent
  62.          BeginProperty Font 
  63.             Name            =   "Arial"
  64.             Size            =   8.25
  65.             Charset         =   0
  66.             Weight          =   400
  67.             Underline       =   0   'False
  68.             Italic          =   0   'False
  69.             Strikethrough   =   0   'False
  70.          EndProperty
  71.          Height          =   255
  72.          Left            =   720
  73.          TabIndex        =   4
  74.          Top             =   120
  75.          Width           =   2895
  76.       End
  77.    End
  78.    Begin VB.PictureBox picBar 
  79.       AutoRedraw      =   -1  'True
  80.       AutoSize        =   -1  'True
  81.       BorderStyle     =   0  'None
  82.       Height          =   300
  83.       Left            =   0
  84.       Picture         =   "frmAbout.frx":20A3C
  85.       ScaleHeight     =   20
  86.       ScaleMode       =   3  'Pixel
  87.       ScaleWidth      =   260
  88.       TabIndex        =   0
  89.       Top             =   0
  90.       Width           =   3900
  91.       Begin VB.Label lblBar 
  92.          Alignment       =   2  'Center
  93.          BackStyle       =   0  'Transparent
  94.          Caption         =   "About"
  95.          BeginProperty Font 
  96.             Name            =   "Verdana"
  97.             Size            =   8.25
  98.             Charset         =   0
  99.             Weight          =   700
  100.             Underline       =   0   'False
  101.             Italic          =   0   'False
  102.             Strikethrough   =   0   'False
  103.          EndProperty
  104.          Height          =   255
  105.          Left            =   120
  106.          TabIndex        =   1
  107.          Top             =   60
  108.          Width           =   3615
  109.       End
  110.    End
  111. End
  112. Attribute VB_Name = "frmAbout"
  113. Attribute VB_GlobalNameSpace = False
  114. Attribute VB_Creatable = False
  115. Attribute VB_PredeclaredId = True
  116. Attribute VB_Exposed = False
  117. '#########################################
  118. '#         Developed By Umer KK          #
  119. '#        Umerkhan_63@Hotmail.com        #
  120. '#########################################
  121. Option Explicit
  122.  
  123. Private Sub buttOK_click()
  124. 'unload the form
  125.  Unload Me
  126. 'enabled the options form
  127.  frmOptions.Enabled = True
  128. End Sub
  129.  
  130. Private Sub Form_Load()
  131.  'Set width and height
  132.   Me.Height = 2850
  133.   Me.Width = 3915
  134.  'Set buttons
  135.   buttOK.Tekst = "OK"
  136.  'add text
  137.   lblExplenations.Caption = "Coded and Designed by UmEr KK."
  138.   lblExplenations2.Caption = "Umerkhan_63@Hotmail.com"
  139. End Sub
  140.  
  141. Private Sub lblBar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  142.  'This Let's the Form Move, like a real titlebar
  143.   Call MouseMove(Me)
  144. End Sub
  145.  
  146. Private Sub picBar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  147.  'This Let's the Form Move, like a real titlebar
  148.   Call MouseMove(Me)
  149. End Sub
  150.  
  151.