Yes, I have just one module, but It still demands VB's DLL.
Here's the code:
Code:
Private Declare Function MessageBoxIndirect Lib "user32" Alias "MessageBoxIndirectA" (lpMsgBoxParams As MSGBOXPARAMS) As Long
Private Declare Sub PostQuitMessage Lib "user32" (ByVal nExitCode As Long)

Const CDL_TITLE = "CD Setup Loader"

Const SHGFI_ICONLOCATION = &H1000
Const MB_ICONASTERISK = &H40&
Const MB_ICONEXCLAMATION = &H30&
Const MAX_PATH = 260

Private Type MSGBOXPARAMS
    cbSize As Long
    hwndOwner As Long
    hInstance As Long
    lpszText As String
    lpszCaption As String
    dwStyle As Long
    lpszIcon As String
    dwContextHelpId As Long
    lpfnMsgBoxCallback As Long
    dwLanguageId As Long
End Type


Sub Main()
    Dim MBP As MSGBOXPARAMS
    
    MBP.cbSize = Len(MBP)
    MBP.dwStyle = MB_ICONASTERISK
    MBP.hInstance = App.hInstance
    MBP.lpszText = "KR nekej za probo, èe dela..."
    MBP.lpszCaption = CDL_TITLE
    MessageBoxIndirect MBP
    
    PostQuitMessage 0
End Sub
Can you help me?