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