Private Declare Function DrawEdge Lib "user32" _
   (ByVal hdc As Long, qrc As RECT, _
    ByVal edge As Long, ByVal grfFlags As Long) As Long
 
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
 
Private Const BDR_RAISEDINNER = &H4
Private Const BDR_RAISEDOUTER = &H1
Private Const BDR_SUNKENINNER = &H8
Private Const BDR_SUNKENOUTER = &H2
Private Const EDGE_RAISED = BDR_RAISEDOUTER Or BDR_RAISEDINNER
Private Const EDGE_SUNKEN = BDR_SUNKENOUTER Or BDR_SUNKENINNER
Private Const BF_LEFT = &H1
Private Const BF_TOP = &H2
Private Const BF_RIGHT = &H4
Private Const BF_BOTTOM = &H8
Private Const BF_RECT = BF_LEFT Or BF_TOP Or BF_RIGHT Or BF_BOTTOM
Private Const BF_BOTTOMLEFT = BF_BOTTOM Or BF_LEFT
Private Const BF_BOTTOMRIGHT = BF_BOTTOM Or BF_RIGHT
 
Private r As RECT
 
Private Sub Form_Load()
 
    With Label1
       .BackStyle = 0 'Transparent
       .Alignment = 2 'Zentrierte Textausgabe
       .Caption = "Button1"
       r.Top = .Top / Screen.TwipsPerPixelX
       r.Left = .Left / Screen.TwipsPerPixelY
       r.Right = .Width / Screen.TwipsPerPixelX + r.Left
       r.Bottom = .Height / Screen.TwipsPerPixelY + r.Top
    End With
 
    AutoRedraw = True
    '3D-Button zeichnen
    DrawEdge Me.hdc, r, EDGE_RAISED, BF_RECT
End Sub
 
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, _
  Y As Single)
    AutoRedraw = False
    DrawEdge Form1.hdc, r, EDGE_SUNKEN, BF_RECT
    AutoRedraw = True
End Sub
 
Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
    AutoRedraw = False
    DrawEdge Form1.hdc, r, EDGE_RAISED, BF_RECT
    AutoRedraw = True
End Sub