What size is yours? :)

[PsychoMark]

Hehe, just had to do the subject thing

What I actually ment was, what size is your start button?
I would like to know if there are any differences in size, or that I can assume the size is *generally* the same.

To find out, put the code below into a form and run it:

Private Declare Function FindWindowEx Lib "user32" _
    Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, _
    ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function FindWindow Lib "user32" _
    Alias "FindWindowA" (ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, _
    lpRect As RECT) As Long

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type


Private Sub Form_Load()
    Dim rButton As RECT
    Dim tWnd As Long
    Dim bWnd As Long
    
    ' Get TaskBar Wnd
    tWnd = FindWindow("Shell_TrayWnd", vbNullString)
    
    ' Get Start button Wnd
    bWnd = FindWindowEx(tWnd, ByVal 0&, "BUTTON", vbNullString)
    
    ' Get Start button Rectangle
    GetWindowRect bWnd, rButton
    
    ' Show it!
    MsgBox "Width: " & _
           CStr(rButton.Right - rButton.Left) & vbCrLf & _
           "Height: " & _
           CStr(rButton.Bottom - rButton.Top), _
           vbOKOnly + vbInformation, "Thank you!"
           
    ' Ok, we can stop now...
    Unload Me
End Sub

I'll post a poll so you don't have to post a message if it's the same dimensions as mine. If you do select 'other', please do leave a message with it's dimensions...


I know this may sound a little strange , but anyways, you would make me a very happy man if you follow my instructions...


Thanks!