Добрый вечер всем.

При загрузке формы с помощью эффекта у формы в верху в местах закругления углов возникают черные углы как от них избавиться?

Option Explicit

Private Declare Function AnimateWindow Lib "user32" (ByVal hWnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Boolean

Private Const AW_HOR_POSITIVE = &H1
Private Const AW_HOR_NEGATIVE = &H2
Private Const AW_VER_POSITIVE = &H4
Private Const AW_VER_NEGATIVE = &H8
Private Const AW_CENTER = &H10
Private Const AW_HIDE = &H10000
Private Const AW_ACTIVATE = &H20000
Private Const AW_SLIDE = &H40000
Private Const AW_BLEND = &H80000
Sub Main()
AnimateWindow Form1.hWnd, 1000, AW_BLEND
Form1.Refresh
End Sub

Модератор: Просьба создавать темы с осмысленными названиями. Уже изменил.