noShape

'Stick this in a module


#If win32 Then
rem For 32 bit windows
Rem Function to draw a rounded rectangle

Declare Function RoundRect Lib "GDI32" (ByVal hDC As Integer, _
ByVal x1 As Integer, ByVal y1 As Integer, _
ByVal x2 As Integer, ByVal y2 As Integer, _
ByVal ellipseWidth As Integer, ByVal ellipseHeight As Integer) _
As Integer
#else
rem For 16 bit windows
Rem Function to draw a rounded rectangle

Declare Function RoundRect Lib "GDI" (ByVal hDC As Integer, _
ByVal x1 As Integer, ByVal y1 As Integer, _
ByVal x2 As Integer, ByVal y2 As Integer, _
ByVal ellipseWidth As Integer, ByVal ellipseHeight As Integer) _
As Integer
#end If

'l'AuroRedraw del Form deve essere true

RoundRect 10,10,200