Option Explicit
Private Declare Function SHObjectProperties Lib "shell32" Alias "#178" (ByVal hOwner As Long, ByVal uFlags As Long, ByVal sName As String, ByVal sParam As String) As Long

Private Sub Form_Load()
Call SHObjectProperties(Me.hWnd, 2, StrConv("C:\1.bat", vbUnicode), StrConv("Совместимость", vbUnicode))
' Параметру sName присваивается путь к файлу, для которого вызывается окно свойств.
' Параметру sParam присваивается имя вкладки в свойствах, которую необходимо показать.
End Sub