File "Splash.bas"

Full Path: /home/analogde/www/Dessin/Splash.bas
File size: 673 bytes
MIME-type: text/plain
Charset: utf-8

 
Open Edit   Advanced Editor   Back 
Attribute VB_Name = "Module4"
Option Explicit

Private Const SWP_NOMOVE = 2
Private Const SWP_NOSIZE = 1
Private Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Private Const HWND_TOPMOST = -1

Private Declare Function 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) As Long

Public Function AuSommet(hwnd As Long) As Long

AuSommet = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

End Function

Sub Main()

frmSplash.Show
'DoEvents

End Sub