by Le King Des Kings (1 Submission)
Category: Custom Controls/Forms/Menus
Compatability: VB Script
Difficulty: Beginner
Date Added: Wed 3rd February 2021
Rating: (5 Votes)
This is a simple arrow button control with an XP style. It gots 3 different look. It also generates 4 events: Click, MouseDown, MouseIn and MouseOut.
I don't want vote, I just wanna share in case it can be usefull to somebody. Any comments are welcome.
API DeclarationsPrivate Declare Function GetCursorPos Lib "user32" (lpPoint As POINT_API) As Long
Private Declare Function ScreenToClient Lib "user32" (ByVal hWnd As Long, lpPoint As POINT_API) As Long
Download XP ArrowButton (17 KB)