Caption = "Move the mouse over your sleeping position."
BeginProperty Font
Name = "Arial"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00E0E0E0&
Height = 1335
Left = 3600
TabIndex = 0
Top = 3360
Width = 5295
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'............................ DC
Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Private OriginalDC As Long
Private HighlightedDC As Long
'............................ BITMAP
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
'............................ OBJECT
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private oldOriginalObj As Long
Private oldHighlightedObj As Long
'............................ RECT
Private Type RECT
iLeft As Long
iTop As Long
iRight As Long
iBottom As Long
End Type
Private Declare Function PtInRect Lib "user32" (lpRect As RECT, ByVal ptx As Long, ByVal pty As Long) As Long
Private arRect(5) As RECT
Private oldSelected As Integer
Private arWidth(5) As Long
Private stdPict101 As StdPicture
Private stdPict102 As StdPicture
Private Sub Form_Load()
Dim lWidth As Long
Dim lHeight As Long
' get "original" picture from resource file and show it in the form