Option Explicit Private Declare Function SHRunDialog Lib shell32 Alias #61 _ (ByVal hOwner As Long, _ ByVal Unknown1 As Long, _ ByVal Unknown2 As Long, _ ByVal szTitle As String, _ ByVal szPrompt As String, _ ByVal uFlags As Long) As Long
Private Sub Form_Load() SHRunDialog hWnd, 0, 0, vbNullString, vbNullString, -0 End Sub