Hi mangesh_yadav,
If you can be satisfied with the default color:
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function GetWindowDC Lib "user32" _
(ByVal hWnd As Long) As Long
Private Declare Function Ellipse Lib "gdi32" (ByVal hDC As Long _
, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long _
, ByVal Y2 As Long) As Long
Private Sub UserForm_Activate()
DoEvents
Ellipse GetWindowDC(GetActiveWindow), 10, 40, 90, 120
End Sub
Regards,
MP
"mangesh_yadav >" <<(E-Mail Removed)> a écrit dans
le message de news:(E-Mail Removed)...
> Is there any way to draw a circle on a userform and give it a color
>
> - Mangesh
>
>
> ---
> Message posted from http://www.ExcelForum.com/
>