Zitat:

Verstehe ich das richtig? Ich würde also via TranspaColor = BitBlt(File1.hdc, 402, 143, 1, 1, File2.hdc, 0, 0, SRCCOPY) die Farbe an Position 402, 143 in File1 bestimmen? Ich frag nur, weil ... egal wie ich das mache immer 1 rauskommt.

  Dim P1hdc&, P1OldHandle&, TmpPic As StdPicture
 
  Set TmpPic = LoadPicture(File1)
  P1hdc = CreateCompatibleDC(0)
  P1OldHandle = SelectObject(P1hdc, TmpPic.Handle)
  TranspaColor = GetPixel(P1hdc, 402, 143)
  Call SelectObject(P1hdc, P1OldHandle)
  Set TmpPic = LoadPicture()
  Call DeleteDC(P1hdc)
  MsgBox TranspaColor, vbOKOnly + vbInformation

Zitat:

Zusätzlich bräuchte ich eine DLL mit der ich den Kopf eines Forms austauschen kann. Ich möchte halt was mit nem Skin probieren. Aber wie greife ich darauf zu?

Gruss,

Zardoz