Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

'Controls: ' Command Button - Command1 Public Function SystemDir() As String Dim sBuffer As String sBuffer = String(255, Chr$(0)) Call GetSystemDirectory(sBuffer, Len(sBuffer)) SystemDir = Replace(sBuffer, Chr$(0), "") End Function Public Function DNSError(sURL As String) As Long Dim sCommand As String sCommand = "res://" & SystemDir() & "\SHDOCLC.DLL/dnserror.htm#" sCommand = sCommand & sURL DNSError = ShellExecute(0&, "open", sCommand, vbNullString, vbNullString, 1&) End Function Private Sub Command1_Click() 'Setting return value to caption for just information only... Caption = DNSError(Text1) End Sub 'Errors, feedbacks, etc... 'MAIL: dippu75@hotmail.com