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

This site is designed to help BCA MCA student to develop final project and synopsis Download Free BCA Project, MCA Project, IT Projects, Final report and Project synopsis with Full documentation and code

Free download MCA projects in ASP.NET with complete source code, Free download MCA projects in VB,NET with complete source code, Free download MCA MSc projects in C#.net with complete source code,

Free download MCA projects in JAVA with complete source code, Free download MCA projects in PHP with complete source code, Free download BSc CS IT projects in PHP,JAVA, ASP.NET with source code

Computer Science Final Project , Free download MCA projects in asp.net , Free download MCA projects in vb.net, Free download MCA projects in C#.net, Free download MCA projects in java, Free download MCA projects in PHP