home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Puzzle2082789102007.psc / BackGround.Frm < prev    next >
Text File  |  2007-09-09  |  1KB  |  45 lines
  1. VERSION 5.00
  2. Begin VB.Form BackGround 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00000000&
  5.    BorderStyle     =   0  'None
  6.    ClientHeight    =   3090
  7.    ClientLeft      =   0
  8.    ClientTop       =   0
  9.    ClientWidth     =   4680
  10.    ControlBox      =   0   'False
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   3090
  13.    ScaleWidth      =   4680
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   3  'Windows Default
  16.    WindowState     =   2  'Maximized
  17. End
  18. Attribute VB_Name = "BackGround"
  19. Attribute VB_GlobalNameSpace = False
  20. Attribute VB_Creatable = False
  21. Attribute VB_PredeclaredId = True
  22. Attribute VB_Exposed = False
  23. Option Explicit
  24.  
  25. Private Const mc_strModuleID   As String = "BackGround."
  26.  
  27. Private Sub Form_Click()
  28. '
  29. '   *************************************************************************
  30. '   ****                                                                 ****
  31. '   ****    If the user should click somewhere outside the puzzle        ****
  32. '   ****    boundaries, this will put the "Focus" back on the puzzle     ****
  33. '   ****    again.                                                       ****
  34. '   ****                                                                 ****
  35. '   *************************************************************************
  36. '
  37.     On Error GoTo ErrorHandler
  38.     Puzzle_Main.SetFocus
  39.     Exit Sub
  40.  
  41. ErrorHandler:
  42.     ProcessError Err, mc_strModuleID & "Form_Click()"
  43.  
  44. End Sub
  45.