Next Chapter 39 Frm Splash

PROJECT SOURCE CODE

SPONSORED LINKS

Frm Splash

Option Explicit

Dim i As Integer

Dim b As Boolean

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 Boolean) As Long

Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Public Function ChangeShape() As Boolean

On Error GoTo 1

Dim lngRetVal1 As Long

Dim lngRetVal2 As Long

Dim lngWidth As Long

Dim lngHeight As Long

lngHeight = (Me.Height \ Screen.TwipsPerPixelY)

lngWidth = (Me.Width \ Screen.TwipsPerPixelX)

lngRetVal1 = CreateEllipticRgn(0, 0, lngWidth, lngHeight)

lngRetVal2 = SetWindowRgn(Me.hwnd, lngRetVal1, True)

DeleteObject lngRetVal1

ChangeShape = True

Exit Function

1

ChangeShape = False

End Function

Private Sub Form_Load()

Label3.Caption = App.Major & "." & App.Minor & "." & Format(App.Revision, "0000")

b = ChangeShape

On Error Resume Next

Me.Show

Timer1 = True

End Sub

Private Sub Timer1_Timer()

i = i + 1

If i = 1 And b = True Then

Load MDIForm1

End If

End Sub