[Tasos]

Καλησπέρα Αντώνη!

Για να κάνεις το φόντο μιας φόρμας διαφανές:

• Φρόντισε η φόρμα να έχει την ιδιότητα "Αναδυόμενη" = "Ναι"
• Φρόντισε επίσης να αποκρύψεις τους δείκτες επιλογής εγγραφών, τα κουμπιά μετακίνησης (προαιρετικό).

Στη λειτουργική μονάδα της φόρμας μπορείς χρησιμοποίησε τον παρακάτω κώδικα:

Option Compare Database
Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _
        ByVal hwnd As Long, _
        ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _
        ByVal hwnd As Long, _
        ByVal nIndex As Long, _
        ByVal dwNewLong As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib "user32" ( _
        ByVal hwnd As Long, _
        ByVal crKey As Long, _
        ByVal bAlpha As Byte, _
        ByVal dwFlags As Long) As Long
        
Private Const GWL_EXSTYLE =  -20&
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_COLORKEY = &H1

Private Sub Form_Load()
    SetWindowLong Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
    SetLayeredWindowAttributes Me.hwnd, vbCyan, 0&, LWA_COLORKEY
    Me.Section(0).BackColor = vbCyan
End Sub

Καλή συνέχεια!

Φιλικά

Τάσος