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