Code colouring test

[penagate]

Public Sub FadeIn(ByVal hwnd As Long, _
                  ByVal lngAlphaMax As Long, _
                  Optional ByVal lngStep As Long = 1)
    Dim udtOSVer            As OSVERSIONINFO
    Dim bAlpha              As Byte
    Dim lngWindowStyle      As Long
    
    udtOSVer.dwOSVersionInfoSize = Len(udtOSVer)
    
    GetVersionEx udtOSVer
    
    If udtOSVer.dwMajorVersion >= 5 Then
    
        bAlpha = 1
            
        lngWindowStyle = GetWindowLong(hwnd, GWL_EXSTYLE)
        SetWindowLong hwnd, GWL_EXSTYLE, lngWindowStyle Or WS_EX_LAYERED
        
        SetLayeredWindowAttributes hwnd, 0, bAlpha, LWA_ALPHA
        
        ' Show + refresh
        ShowWindow hwnd, SW_SHOWNORMAL
        UpdateWindow hwnd
        
        Do
            SetLayeredWindowAttributes hwnd, 0, bAlpha, LWA_ALPHA
            
            If (Not ((bAlpha + lngStep) > lngAlphaMax)) Then
                bAlpha = bAlpha + lngStep
                
              Else
                bAlpha = lngAlphaMax
                
                SetLayeredWindowAttributes hwnd, 0, bAlpha, LWA_ALPHA
                
            End If
            
        Loop Until bAlpha >= lngAlphaMax

        SetWindowLong hwnd, GWL_EXSTYLE, lngWindowStyle

      Else  ' udtOSVEr.dwMajorVersion < 5
        
        ShowWindow hwnd, SW_SHOWNORMAL
        
    End If
    
End Sub