Zobrazenφ dialogu Spustit

Private Declare Function SHRunDialog Lib "shell32" _
    Alias "#61" (ByVal hOwner As Long, ByVal UnknownP1 _
    As Long, ByVal UnknownP2 As Long, ByVal szTitle _
    As String, ByVal szPrompt As String, ByVal uFlags _
    As Long) As Long

Public Sub ShowRunDialog(ByRef CallingForm As Form, _
    Optional Title As String, _
    Optional Description As String)
    
    If Title = "" Then Title = "Spustit"
    
    If Description = "" Then Description = _
    "Zadejte nßzev programu, slo₧ky, dokumentu nebo zdroje " & _
        "v sφti Internet a systΘm Windows jej otev°e."
    
    SHRunDialog CallingForm.hWnd, 0, 0, _
        Title, Description, 0
        
End Sub

P°φklad pou₧itφ:
Call ShowRunDialog(Me, "Spustit", "Zvolte aplikaci:")

Zp∞t