[TUT]-VB- Form mit Schatten hinterlegen

Also,diese Tutorial zeigt euch, wie man eine Form mit einem Schatten versieht(per API)
Als erstes müsst ihr die Api's so deklarieren:

' Benötigte API-Deklarationen
Private Declare Function GetClassLong Lib "user32" _
Alias "GetClassLongA" ( _
ByVal hWnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetClassLong Lib "user32" _
Alias "SetClassLongA" ( _
ByVal hWnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long

Nun noch eine Sub hinzufügen:

' Schatten Sub
Public Sub SetWindowShadow(ByVal hWnd As Long)
Call SetClassLong(hWnd, GCL_STYLE, GetClassLong(hWnd, GCL_STYLE) Or CS_DROPSHADOW)
End Sub

und nun nur noch bei der Private Sub Form_Load() das hier eingeben:

'Schatten hinzufügen
SetWindowShadow me.hwnd

Und bei der Form wo ihr es ausgeführt und deklariert habt muss unter XP ein Schatten sichbar sein :)

mfg 1337-Universe

Naja, von Tutorial kann mann hier nicht wirklich Reden...., Trotzdem Danke den das wuste ich nocht nicht.

Mfg

wusst ich auch noch nicht,werds ma testen wenn ich zeit hab..ist aber im grunde schon nen texttut @Igoe ;)..halt nen kurzes