VERSION 5.00
Begin VB.Form Intro 
   BackColor       =   &H00000000&
   BorderStyle     =   0  'None
   ClientHeight    =   2400
   ClientLeft      =   60
   ClientTop       =   60
   ClientWidth     =   4800
   ControlBox      =   0   'False
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H00FFFFFF&
   Icon            =   "Intro.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   160
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   320
   ShowInTaskbar   =   0   'False
   Begin VB.Timer Tm 
      Enabled         =   0   'False
      Interval        =   200
      Left            =   4275
      Top             =   75
   End
   Begin VB.Label Txt2 
      AutoSize        =   -1  'True
      BackColor       =   &H00000000&
      BackStyle       =   0  'Transparent
      Caption         =   "Ugly but useful"
      ForeColor       =   &H00FFFFFF&
      Height          =   195
      Left            =   375
      TabIndex        =   2
      Top             =   900
      Visible         =   0   'False
      Width           =   1080
   End
   Begin VB.Label Txt 
      AutoSize        =   -1  'True
      BackColor       =   &H00000000&
      BackStyle       =   0  'Transparent
      Caption         =   "Loading …"
      ForeColor       =   &H00FFFFFF&
      Height          =   195
      Left            =   225
      TabIndex        =   1
      Top             =   2025
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.Label Title 
      AutoSize        =   -1  'True
      BackColor       =   &H00000000&
      BackStyle       =   0  'Transparent
      Caption         =   "Moon2.0"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   540
      Left            =   300
      TabIndex        =   0
      Top             =   300
      Visible         =   0   'False
      Width           =   1860
   End
   Begin VB.Shape Border 
      BackColor       =   &H00000000&
      BorderColor     =   &H00C0C0C0&
      Height          =   2400
      Left            =   0
      Top             =   0
      Width           =   4800
   End
   Begin VB.Image Pic 
      Height          =   2400
      Left            =   0
      Picture         =   "Intro.frx":000C
      Top             =   0
      Width           =   4800
   End
End
Attribute VB_Name = "Intro"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim Last As Double, Win As Long

Private Sub Form_Load()
    SetFont Me: Set Txt.Font = Font: Set Txt2.Font = Font
    Title = AppName
    Load '"Splash2", False
    End Sub

Sub Load(Optional File As String = "Splash", Optional ByVal Labels As Boolean = True)
    LoadPic Pic, File & ".jpg"
    Win = FindWindow("ThunderRT6FormDC", "Splash") 'ThunderFormDC (debug) .. ThunderRT6FormDC (runtime)
    If Win Then PostMessage Win, &H100&, 1 'WM_KEYDOWN=&H100
    With Pic
    Border.Move Border.Left, Border.Top, .Width, .Height
    Txt.Move Txt.Left, .Height - Txt.Left - Txt.Height + 3
    Title.Visible = Labels: Txt.Visible = Labels ': Txt2.Visible = Labels
    SetWindowPos hWnd, -1, (PrimaryWidth - .Width) / 2, (PrimaryHeight - .Height) / 2, _
        .Width, .Height, &H14& '1=NoSize 2=NoMove 4=NoZOrd 8=NoRedraw &H10=NoAct
    End With
    If InStr(LCase(Command), "quiet") = 0 And Shift = 0 Then Show vbModeless, Main: Refresh
    End Sub

Private Sub Tm_Timer()
    Dim N As Double
    If Tm.Interval <> 50 Then Tm.Interval = 50: SetAlpha hWnd, , True: Last = TimerEx _
    Else N = TimerEx - Last: If N <= 0.5 Then SetAlpha hWnd, (0.5 - N) / 0.5 _
        Else Tm.Interval = 200: Tm = False: Hide: SetAlpha hWnd, , False
    End Sub
