EVPRGFlat
            Border lHDC, EVPRGFlat, tWR, False
         Case EVPRG3DThin
            Border lHDC, EVPRG3DThin, tWR, False
         Case EVPRG3D
            Border lHDC, EVPRG3D, tWR, False
         End Select
      End Select
   End If
   
   ' Swap memdc&lt;-&gt;Screen
   If bMem Then
      m_cMemDC.Draw lhDCU, 0, 0, lWidth, lHeight, lLeft, lTop
   End If
   
   If (hTheme) Then
      CloseThemeData hTheme
   End If

End Sub
Private Sub Border( _
      ByVal lHDC As Long, _
      ByVal lStyle As 