Dim sInstall As String = ReadRegistry("SOFTWARE\ESRI\CoreRuntime")
Dim path As String = System.IO.Path.Combine(sInstall, "Styles")
Dim pofd As OpenFileDialog = New OpenFileDialog()
pofd.CheckPathExists = True
pofd.CheckFileExists = True
pofd.RestoreDirectory = True
pofd.InitialDirectory = path
pofd.Multiselect = False
pofd.Title = "Symbols"
pofd.Filter = "ESRI Style Set Files (*.ServerStyle)|*.ServerStyle"
If pofd.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
'Load the style file into the SymbologyControlz
AxSymbologyControlMxd.LoadStyleFile(pofd.FileName)
AxSymbologyControlMxd.Update()
AxSymbologyControlMxd.Refresh()
End If