Public Function SET_SkinColor(ByVal Col As Long)
 
frmMain.picBG.Top = 0
frmMain.picBG.Left = 0
frmMain.picBG.Width = Screen.Width
frmMain.picBG.Height = Screen.Height
frmMain.picBG.Cls
frmMain.picBG.Picture = LoadPicture(App.Path + "\bg_sw.jpg")
 
    frmMain.picBG.AutoRedraw = True
    frmMain.AutoRedraw = True
    pictmp.ScaleMode = vbPixels
    frmMain.ScaleMode = vbPixels
    With alpha_BF
        .BlendOp = AC_SRC_OVER
        .BlendFlags = 0
        .SourceConstantAlpha = 128
        .AlphaFormat = 0
    End With
    If Not alpha_lBF Then RtlMoveMemory alpha_lBF, alpha_BF, 4
    frmMain.BackColor = Col
    AlphaBlend frmMain.Hdc, 0, 0, frmMain.ScaleWidth, frmMain.ScaleHeight, _
      frmMain.picBG.Hdc, 0, 0, frmMain.picBG.ScaleWidth, _
      frmMain.picBG.ScaleHeight, alpha_lBF
    frmMain.picBG.Cls
 
End Function

Unternehmt etwas gegen TCPA!! Lasst eucht nicht Kontrollieren!!