Hi Allz

Window mit runden Ecken

Ist ganz einfach: So geht's




In der Form:

Private Declare Function CreateRoundRectRgn Lib "gdi32" _
   (ByVal X1 As Long, ByVal Y1 As Long, _
    ByVal X2 As Long, ByVal Y2 As Long, _
    ByVal X3 As Long, ByVal Y3 As Long) As Long
 
Private Declare Function SetWindowRgn Lib "user32" _
   (ByVal hWnd As Long, ByVal hRgn As Long, _
    ByVal bRedraw As Boolean) As Long
 
 
Private Sub Form_Load()
   Dim x As Long, y As Long, n As Long
   ScaleMode = vbPixel
   x = Me.ScaleWidth
   y = Me.ScaleHeight
   n = 30
   SetWindowRgn Me.hWnd, CreateRoundRectRgn(0, 0, x, y, n, n), True
End Sub

cu
Lordchen