Zitat:

Gibt es nicht vielleicht eine Möglichkeit, den Quellcode von Preisser so anzupassen, dass alle Controls sichtbar sind?

Private Sub Form_Load()
 
  Dim i&, j&
 
  With Me
    .ScaleMode = vbPixels
    .BackColor = vbCyan
    .AutoRedraw = True
    For j = 0 To .ScaleHeight - 1
      For i = (j And 1) To .ScaleWidth - 1 Step 2
        Me.Line (i, j)-(i + 1, j), vbButtonFace
      Next i
    Next j
    Call SetWindowLong(.hWnd, GWL_EXSTYLE, GetWindowLong(.hWnd, GWL_EXSTYLE) Or _
      WS_EX_LAYERED)
    Call SetLayeredWindowAttributes(.hWnd, .BackColor, 0, LWA_COLORKEY)
  End With
 
End Sub

Gruss,

Zardoz