VERSION 5.00
Begin VB.Form frmAbout 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "About BoBCoB"
   ClientHeight    =   4710
   ClientLeft      =   2340
   ClientTop       =   1935
   ClientWidth     =   5790
   ClipControls    =   0   'False
   Icon            =   "About.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   314
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   386
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Begin VB.PictureBox picIcon 
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      ClipControls    =   0   'False
      Height          =   960
      Left            =   120
      Picture         =   "About.frx":000C
      ScaleHeight     =   64
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   64
      TabIndex        =   1
      Top             =   120
      Width           =   960
   End
   Begin VB.PictureBox picRhodent 
      AutoSize        =   -1  'True
      Height          =   1305
      Left            =   120
      Picture         =   "About.frx":0BFB
      ScaleHeight     =   1245
      ScaleWidth      =   1095
      TabIndex        =   10
      Top             =   120
      Visible         =   0   'False
      Width           =   1155
   End
   Begin VB.PictureBox picGordnorn 
      AutoSize        =   -1  'True
      Height          =   1290
      Left            =   120
      Picture         =   "About.frx":15FE
      ScaleHeight     =   1230
      ScaleWidth      =   1095
      TabIndex        =   9
      Top             =   120
      Visible         =   0   'False
      Width           =   1155
   End
   Begin VB.PictureBox picBoth 
      AutoSize        =   -1  'True
      Height          =   1110
      Left            =   120
      Picture         =   "About.frx":1EF6
      ScaleHeight     =   1050
      ScaleWidth      =   1095
      TabIndex        =   8
      Top             =   120
      Visible         =   0   'False
      Width           =   1155
   End
   Begin VB.CommandButton cmdOK 
      Cancel          =   -1  'True
      Caption         =   "OK"
      Default         =   -1  'True
      Height          =   345
      Left            =   4320
      TabIndex        =   0
      Top             =   4080
      Width           =   1260
   End
   Begin VB.Label lblHomepage 
      AutoSize        =   -1  'True
      Caption         =   "website address"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   195
      Left            =   1320
      TabIndex        =   7
      ToolTipText     =   "Click here to go to the BoBCoB homepage"
      Top             =   1200
      Width           =   1140
   End
   Begin VB.Label lblDisclaimer 
      Caption         =   $"About.frx":28C3
      Height          =   1575
      Left            =   1320
      TabIndex        =   6
      Top             =   1560
      Width           =   3855
   End
   Begin VB.Label lblContact 
      Caption         =   "Visit the BoBCoB homepage at:"
      Height          =   255
      Left            =   1320
      TabIndex        =   5
      Top             =   960
      Width           =   3855
   End
   Begin VB.Label lblCopyright 
      Caption         =   "App.LegalCopyright"
      Height          =   255
      Left            =   1320
      TabIndex        =   4
      Top             =   600
      Width           =   3855
   End
   Begin VB.Line Line1 
      BorderColor     =   &H80000015&
      BorderStyle     =   6  'Inside Solid
      Index           =   1
      X1              =   8
      X2              =   378.933
      Y1              =   224
      Y2              =   224
   End
   Begin VB.Label lblTitle 
      Caption         =   "App.Title vX.X"
      ForeColor       =   &H00000000&
      Height          =   255
      Left            =   1320
      TabIndex        =   3
      Top             =   240
      Width           =   3855
   End
   Begin VB.Line Line1 
      BorderColor     =   &H80000014&
      BorderWidth     =   2
      Index           =   0
      X1              =   9
      X2              =   378.933
      Y1              =   225
      Y2              =   225
   End
   Begin VB.Label lblWarning 
      Caption         =   $"About.frx":2A5F
      Height          =   825
      Left            =   240
      TabIndex        =   2
      Top             =   3600
      Width           =   3870
   End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private m_nSequence As Integer
Private m_nPawX As Single
Private m_nPawY As Single

Private Sub SwapImages(oImage1 As Control, oImage2 As Control)
    Dim I As Integer
    
    For I = oImage1.Left To -oImage1.Width Step -1
        oImage1.Left = I
        DoEvents
    Next
    oImage1.Visible = False
    oImage2.Left = -oImage2.Width
    oImage2.Visible = True
    For I = -oImage2.Width To 120
        oImage2.Left = I
        DoEvents
    Next
End Sub

Private Sub cmdOK_Click()
  Unload Me
End Sub

Private Sub Form_Load()
    Me.Caption = "About " & App.Title
    lblTitle.Caption = App.Title & " v" & App.Major & "." & Format(App.Minor, "00")
    lblCopyright.Caption = App.LegalCopyright
    lblHomepage.Caption = sBoBCoBHomePage
    m_nSequence = 0
    Randomize
End Sub

Private Sub picBoth_Click()
    SwapImages picBoth, picIcon
End Sub

Private Sub picGordnorn_Click()
    SwapImages picGordnorn, picIcon
End Sub

Private Sub picRhodent_Click()
    SwapImages picRhodent, picIcon
End Sub

Private Sub lblHomepage_Click()
    OpenBoBCoBHomePage
End Sub

Private Sub picIcon_Click()
    Dim nDistance As Single
    Dim oControl As Control
    
    If m_nSequence = 0 Then
        nDistance = (m_nPawX - 14) ^ 2 + (m_nPawY - 25) ^ 2
        If nDistance <= 25 Then
            m_nSequence = 1
        Else
            m_nSequence = 0
        End If
    ElseIf m_nSequence = 1 Then
        nDistance = (m_nPawX - 24) ^ 2 + (m_nPawY - 18) ^ 2
        If nDistance <= 25 Then
            m_nSequence = 2
        Else
            m_nSequence = 0
        End If
    ElseIf m_nSequence = 2 Then
        nDistance = (m_nPawX - 38) ^ 2 + (m_nPawY - 18) ^ 2
        If nDistance <= 25 Then
            m_nSequence = 3
        Else
            m_nSequence = 0
        End If
    ElseIf m_nSequence = 3 Then
        nDistance = (m_nPawX - 48) ^ 2 + (m_nPawY - 25) ^ 2
        If nDistance <= 25 Then
            m_nSequence = 4
        Else
            m_nSequence = 0
        End If
    ElseIf m_nSequence = 4 Then
        nDistance = (m_nPawX - 31) ^ 2 + (m_nPawY - 40) ^ 2
        If nDistance <= 175 Then
            Select Case Int(3 * Rnd + 1)
                Case 1
                    Set oControl = picBoth
                    
                Case 2
                    Set oControl = picGordnorn
                    
                Case 3
                    Set oControl = picRhodent
            End Select
            Me.ScaleMode = vbTwips
            SwapImages picIcon, oControl
            m_nSequence = 0
        Else
            m_nSequence = 0
        End If
    End If
End Sub

Private Sub picIcon_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    m_nPawX = X ' / Screen.TwipsPerPixelX
    m_nPawY = Y ' / Screen.TwipsPerPixelY
End Sub
