Option Explicit
Dim hWnd As Long
Private Declare Function FindWindowA Lib "User32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Const HerZamanÜstte = -1
Private Sub UserForm_Activate()
hWnd = FindWindowA(vbNullString, Me.Caption)
SetWindowPos hWnd, HerZamanÜstte, 0, 0, 0, 0, &H10 Or &H40 Or &H2 Or &H1
Application.Visible = False
Application.OnTime Now + TimeValue("00:00:10"), "kapat"
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.Visible = True
End Sub
