home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / IBrowse(v1205242382007.psc / about.frm < prev    next >
Text File  |  2007-02-24  |  2KB  |  71 lines
  1. VERSION 5.00
  2. Begin VB.Form About 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "About"
  5.    ClientHeight    =   3090
  6.    ClientLeft      =   0
  7.    ClientTop       =   0
  8.    ClientWidth     =   4680
  9.    LinkTopic       =   "Form3"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   3090
  13.    ScaleWidth      =   4680
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   1  'CenterOwner
  16. End
  17. Attribute VB_Name = "About"
  18. Attribute VB_GlobalNameSpace = False
  19. Attribute VB_Creatable = False
  20. Attribute VB_PredeclaredId = True
  21. Attribute VB_Exposed = False
  22. 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
  23.  
  24.  
  25.  
  26. Private Sub Form_Load()
  27. lblTitle.Caption = "IBrowse V1.0" & vbCrLf & "Author:Dileep" & vbCrLf & "Credits:" & "Sherif Rofael(for Win API tutorial)" & vbCrLf & "Ryan Sever(for Multi tabbed browsing concept)" & vbCrLf & "Icons by Xp Icandy" & vbCrLf
  28.  
  29.  
  30. End Sub
  31.         
  32.  
  33.  
  34.  
  35. Private Sub Form_Click()
  36. Unload Me
  37.  
  38. End Sub
  39.  
  40.  
  41. Private Sub Label1_Click()
  42. Dim shellsuccess As Long
  43.  
  44. shellsuccess = ShellExecute(fH, "Open", "http//:www.IBrowse.tk", 0&, 0&, 10)
  45.  
  46. End Sub
  47.  
  48. Private Sub lblTitle_Click()
  49. Unload Me
  50.  
  51. End Sub
  52.  
  53. Private Sub Picture1_Click()
  54. Unload Me
  55.  
  56. End Sub
  57.  
  58. Private Sub Timer1_Timer()
  59.     If lblTitle.Top < Picture1.Height - Picture1.Height - lblTitle.Height Then
  60.         lblTitle.Top = Picture1.Height - 1
  61.         lblTitle.Top = lblTitle.Top - 5
  62.     Else
  63.         lblTitle.Top = lblTitle.Top - 10
  64.     End If
  65.  
  66. End Sub
  67.  
  68. Private Sub TabStrip1_Click()
  69.  
  70. End Sub
  71.