' Controls: 2 * Picturebox
' Die Form muss ein Bild haben
 
Option Explicit
 
Private Declare Function TransparentBlt& Lib "msimg32.dll" (ByVal hdcDest&, _
  ByVal nXOriginDest&, ByVal nYOriginDest&, ByVal nWidthDest&, ByVal _
  nHeightDest&, _
  ByVal hdcSrc&, ByVal nXOriginSrc&, ByVal nYOriginSrc&, ByVal nWidthSrc&, _
  ByVal nHeightSrc&, ByVal crTransparent&)
 
Private Sub Form_Load()
  Dim Dat1$, Breite&, Höhe&
 
  Dat1 = "C:\Buttonbild.bmp"
  If Dir$(Dat1) = "" Then
    MsgBox "Datei nicht gefunden.", vbExclamation + vbOKOnly
    Exit Sub
  End If
  Me.ScaleMode = vbPixels
  With Picture2
    .Visible = False
    .ScaleMode = vbPixels
    .AutoSize = True
    Set .Picture = LoadPicture(Dat1)
    Breite = .ScaleWidth
    Höhe = .ScaleHeight
    .AutoRedraw = True
    With Picture1
      .Visible = True
      .ScaleMode = vbPixels
      .AutoRedraw = True
      .PaintPicture Me.Picture, 0, 0, .ScaleWidth, .ScaleHeight, _
        .Left + 2, .Top + 2, .ScaleWidth, .ScaleHeight
      Call TransparentBlt(.hDC, (.ScaleWidth - Breite) / 2, (.ScaleHeight - _
        Höhe) / 2, _
        Breite, Höhe, Picture2.hDC, 0, 0, Breite, Höhe, vbWhite)
    End With
    Set .Picture = LoadPicture()
    .Cls
    .AutoRedraw = False
  End With
End Sub

Gruss,

Zardoz