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
 
Public Sub ShowMeldung (MeldungsText As String)
frmMeldung.Show
Dim Ret As Long
Ret = GetWindowLong(frmMeldung.hWnd, (-20))
Ret = Ret Or &H80000
SetWindowLong frmMeldung.hWnd, (-20), Ret
                            'Fenster anpassen
SetLayeredWindowAttributes Me.hWnd, 0, 200, &H2
                   'Fenster halbtransparent machen, die 200 lässt sich 
                   ' verstellen von 0 - 255
frmMeldung.lblMeldung.Caption = MeldungsText
                            'Meldung anzeigen, lblMeldung = Label
frmMeldung.Top = frmXY.Top
frmMeldung.Left = frmXY.Left
                            'Position angleichen
frmMeldung.Width = frmXY.Width
frmMeldung.Height = frmXY.Height
                            'Größe anpassen
End Sub