' Form1: aufrufende Form
' Form2: modal aufgerufene Form
Dim FrmDark As Form, C As Control
 
Set FrmDark = New Form1
FrmDark.BackColor = vbBlack
For Each C In FrmDark.Controls
  If Not (TypeOf C Is Timer) Then C.Visible = False
Next C
FrmDark.Show vbModeless, Me
FrmDark.Move Me.Left, Me.Top
Call SetWindowLong(FrmDark.hWnd, GWL_EXSTYLE, GetWindowLong(FrmDark.hWnd, _
  GWL_EXSTYLE) Or WS_EX_LAYERED)
Call SetLayeredWindowAttributes(FrmDark.hWnd, 0, 128, LWA_ALPHA)
Form2.Show vbModal, FrmDark
Unload FrmDark
Me.Hide
Me.Show

Gruss,

Zardoz