The following lines were added (+) and removed (-):
== Form Move Event ==*The Paint event won't detect a window being moved off the screen, but will get triggered when the window is moved back onto the screen.*The Paint event won't detect a window being moved off the screen, but will get triggered when the window is moved back onto the screen. If AutoRedraw is enabled the Paint event is not fired at all.== Subclassing using WM_WINDOWPOSCHANGED ===== Subclassing using WM_WINDOWPOSCHANGED ===== EventVB.dll Custom Functions ===== EventVB.dll Custom Functions === == Open a Form From Another Form ==Open the form called frmCompanies frmCompanies.ShowOpen it so that the parent form cannot be clicked. To suspend execution of the first form until after the second form is done with, add the keyword constant vbModal as an argument to the Show method. frmCompanies.Show vbModalThe Hide method of a form removes the form from the screen (makes it invisible), but the form still remains in memory. frmCompanies.Hide Me.Hide HideYou can load a form in memory and not display it. Load frmCompaniesUnload form from memory (which also closes it) Unload MeExample Private Sub Form_Unload(Cancel As Integer) If MsgBox("Are you sure you want to quit?", vbYesNo + vbQuestion, "Unload Test") = vbNo Then Cancel = 1 End If End Sub == From Dimensions and Twip Units ==The default unit is the twip, which is 1/1440 of an inch for height, width, top, and left. There are 15 twips per pixel.Pixels to Twip: W = W * Screen.TwipsPerPixelX H = H * Screen.TwipsPerPixelY Twips to Pixel: W = W / Screen.TwipsPerPixelX H = H / Screen.TwipsPerPixelY == Resizing Forms ==* Width: Specifies the width of the control. The default unit is the twip, which is 1/1440 of an inch.* Height: Specifies the height of the control. The default unit is the twip, which is 1/1440 of an inch.* Left: Specifies the distance between the internal left edge of a control and the left edge of its containter.The default unit is the twip, which is 1/1440 of an inch.* Top: Specifies the distance between the internal top edge of a control and the top edge of its containter.The default unit is the twip, which is 1/1440 of an inch.<BR>* ScaleWidth: The width of the client area.* ScaleHeight: The height of the client area.* ScaleLeft: Coordinate horizontal of upper left client area.* ScaleTop: Coordinate vertical of upper left client area.<BR>* ClientWidth:* ClientHeight:* ClientLeft:* ClientTop: == Write to control on another form and display == Dim lblCaught As Label Set lblCaught = frmKaching.lblCaught frmKaching.WindowState = vbNormal lblCaught = "You've Been Naughty!" frmKaching.Show == Determine is a form has been loaded ==The wrong way: if form1.visible = true thenThe reason:Due to the way an intrinsic variable instance works in VB, the line above will actually cause form1 to load. Forms are loaded automatically whenever referenced in code, whether loaded visibly or not.Special thanks to a gentleman named Steve Gerrard who posted a correct sample script on another forum. His example works by going through a list of loaded forms and matching by the form name you are looking for. Public Function FormIsLoaded(FormName As String) As Boolean Dim oFrm As Form For Each oFrm In Forms If oFrm.Name = FormName Then FormIsLoaded = True Exit For End If Next oFrm End Functionlovely! == Prevent Partially Painted Windows ==Sometimes when you display a form only some of the controls appear. After a pause the remaining controls appear. This does not have a professional look. This has become much less apparent in VB 5.0 because of dramatic improvements in screen painting.example: frmPerson.Show vbModeless frmPerson.RefreshThe Refresh method will ensure that the form repainting is complete before executing any other code in the routine.