fixed VB WebService file template

data/templates/file/VBNet/VBNet.Web.WebService.xft

@@ -22,34 +22,26 @@
 	 -->
 	<Files>
 		<File name="${Path}/${FileNameWithoutExtension}.vb" DependentUpon="${FileName}" language="VBNET"><![CDATA[${StandardHeader.VBNET}
-using System;
+Imports System
-using System.Web.Services;
+Imports System.Web.Services
-
+
-namespace ${StandardNamespace}
+''' <summary>
-{
+''' Description of ${ClassName}
-	/// <summary>
+''' </summary>
-	/// Description of ${ClassName}
+<WebService(Name := "${ClassName}", Description := "${ClassName}", Namespace := "http://www.${ClassName}.example")>
-	/// </summary>
+Public Class ${ClassName}
-	[WebService
+	Inherits WebService
- 	 (	Name = "${ClassName}",
+	
-  		Description = "${ClassName}",
+	Public Sub New()
-  		Namespace = "http://www.${ClassName}.example"
+		
- 	 )
+	End Sub
-	]
+	
-	public class ${ClassName} : WebService
+	<WebMethod> _
-	{
+	Public Function Status() As String
-		public ${ClassName}()
+		Dim s As String = String.Format("Time: {0}", DateTime.Now)
-		{
+		Return s
-		}
+	End Function
-		
+End Class
-		[WebMethod]
-		public string Status()
-		{
-			string s = string.Format("Time: {0}", DateTime.Now);
-			return s;
-		}
-	}
-}
 ]]></File>
 		<File name="${FullName}"><![CDATA[
 <%@ WebService  Class="${StandardNamespace}.${ClassName}" Language="VB" %>