VERSION 5.00
Begin VB.Form frmAbout 
   BackColor       =   &H00E0E0E0&
   Caption         =   "About Me"
   ClientHeight    =   4710
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6840
   LinkTopic       =   "Form1"
   ScaleHeight     =   4710
   ScaleWidth      =   6840
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin VB.PictureBox Picture1 
      BackColor       =   &H00E0E0E0&
      Height          =   3015
      Left            =   840
      ScaleHeight     =   2955
      ScaleWidth      =   5595
      TabIndex        =   1
      Top             =   1560
      Width           =   5655
      Begin VB.Label Label4 
         BackColor       =   &H00808080&
         BackStyle       =   0  'Transparent
         Caption         =   $"frmAbout.frx":0000
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00808080&
         Height          =   1215
         Left            =   0
         TabIndex        =   7
         Top             =   1680
         Width           =   5535
      End
      Begin VB.Label Label3 
         BackColor       =   &H00808080&
         BackStyle       =   0  'Transparent
         Caption         =   "Website : www.VIVEKPATEL.cjb.net"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   15.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   495
         Left            =   360
         TabIndex        =   5
         Top             =   1200
         Width           =   5535
      End
      Begin VB.Label Label2 
         BackColor       =   &H00808080&
         BackStyle       =   0  'Transparent
         Caption         =   "Email : vivek_patel9@rediffmail.com"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   15.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   495
         Left            =   360
         TabIndex        =   4
         Top             =   840
         Width           =   5535
      End
      Begin VB.Label Label1 
         BackColor       =   &H00808080&
         BackStyle       =   0  'Transparent
         Caption         =   "Programmed by : Vivek Patel"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   15.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   495
         Left            =   840
         TabIndex        =   3
         Top             =   480
         Width           =   5055
      End
      Begin VB.Label lblWelcome 
         Alignment       =   2  'Center
         BackColor       =   &H00808080&
         Caption         =   "Library Management System"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   21.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C0FFFF&
         Height          =   495
         Left            =   0
         TabIndex        =   2
         Top             =   0
         Width           =   5655
      End
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H00C0C0C0&
      Caption         =   "&Close Me"
      Height          =   615
      Left            =   600
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   120
      Width           =   1575
   End
   Begin VB.Label lblvote 
      Alignment       =   2  'Center
      AutoSize        =   -1  'True
      BackColor       =   &H00E0E0E0&
      Caption         =   "VOTE for Library Mgmt System"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   330
      Left            =   1410
      TabIndex        =   6
      Top             =   1080
      Width           =   4035
   End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'=====================================================
'*****************************************************
'* Programmed by :  Gaurav  (Cicular Form )          *
'* Contact :  Website => www.kaga.cjb.net            *
'* Description : A Circular Form with my details     *

'=====================================================
'* Thanxs GAURAV for CIRCULAR FORM CODE....
'* Taken Help from my Net Friend????
'* I have made invisible form but some how unable to make
'* Circular form...and was hurry in issuing this code...
'* which make me go for it!!! as he had already programmed
'* it!! So rather than wasting Time i decided to go for it!!
'=====================================================

'* My Contribution
'++++++++++++++++++
'* I Have Modified it to Give Animation Effect...and rest of
'* the stuff!!! deducting Curcular Form.

'* Vote For Me : If you really enjoy this utility or *
'                 helped by any of the functionality *
'                 than plz. reward us by your VOTE.  *
'*****************************************************
'=====================================================

'####################################################
'Declaration for making form as TOPMOST
' [ Start ]
'####################################################

'Private Const HWND_TOPMOST = -1
'Private Const HWND_NOTOPMOST = -2
'Private Const SWP_NOSIZE = &H1
'Private Const SWP_NOMOVE = &H2
'Private Const SWP_NOACTIVATE = &H10
'Private Const SWP_SHOWWINDOW = &H40

'Private Declare Sub SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
'####################################################
'Declaration for making form as TOPMOST
' [ End ]
'####################################################

Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "User32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long
'the form's diameter in pixels
Const F_DIA As Integer = 7000

Private Sub Command1_Click()
    Unload Me
End Sub

Private Sub Form_Activate()
    Call popup
'    SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub

Private Sub Form_Load()
    Me.Width = F_DIA
    Me.Height = F_DIA
    thewidth = Me.Width / Screen.TwipsPerPixelX
    theheight = Me.Height / Screen.TwipsPerPixelY
    hori = CreateEllipticRgn(25, 25, thewidth, theheight)
    digo = SetWindowRgn(Me.hWnd, hori, False)
    Me.Height = F_DIA + 25
    Me.Width = F_DIA + 25
    
    'For displaying form in between
    Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
    
    'Me.Left = Screen.Width - (Me.Width + 50)
    Me.Top = Screen.Height - 1400 '1400 assumed height for taskbar
    Picture1.Visible = False
    
    'For displaying command btn in between
    Command1.Move (Me.Width - Command1.Width) \ 2, (Me.Height - Command1.Height) - 700
    
    lblvote.Move (Me.Width - lblvote.Width) \ 2, (Me.ScaleTop + lblvote.Height) + 500
    Picture1.Move (Me.Width - Picture1.Width) \ 2, (Me.ScaleTop + lblvote.Height) + 1475
    
    Call frmNewsBar.Show
End Sub



'**************************************************
' MSN Style Popup Menu Coding
'**************************************************
  
  Private Sub popup()
    Picture1.Visible = True
    Dim i As Integer
    i = Me.Height
    Me.Height = 0
    While Me.Height < i
        Me.Height = Me.Height + 50
        Me.Top = Me.Top - 50
        DoEvents
    Wend
End Sub

Private Sub popdown()
    i = Me.Height
    While Me.Height > 0
        Me.Height = Me.Height - 50
        Me.Top = Me.Top + 50
        DoEvents
    Wend
End Sub