Private Function ShowFileDialog() As String
    Dim ofn As OpenFilename
 
    With ofn
      .lStructSize = Len(ofn)
      .hwndOwner = hwnd
      .lpstrInitialDir = App.Path
      .lpstrFilter = "Skin files (*.skn)" & Chr$(0) & "*.skn" & Chr$(0) & Chr( _
        0) & Chr(0)
      .lpstrFile = String(256, 0)
      .nMaxFile = 255
      .lpstrTitle = "Open Skin"
      .Flags = &H800000 + &H1000 + &H8 + &H4
      .lpstrDefExt = "skn" + Chr(0)
 
      GetOpenFileName ofn
      If Mid(.lpstrFile, 1, 1) <> Chr(0) Then ShowFileDialog = .lpstrFile
  End With
End Function