关于wcf服务，有些类不是很明白，麻烦哪位老大帮我做一下注释。

[ruhong1]

 Private Host As ServiceHost = Nothing
    Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btn_开启服务.Click
        If Host Is Nothing Then
            Host = New ServiceHost(GetType(A.Service1))
            Dim httpBinding As System.ServiceModel.Channels.Binding = New BasicHttpBinding()
            Host.AddServiceEndpoint(GetType(A.IService1), httpBinding, "http://localhost:8002/")
            Dim behavior As ServiceMetadataBehavior = New ServiceMetadataBehavior()
            behavior.HttpGetEnabled = True
            behavior.HttpGetUrl = New Uri("http://localhost:8002/Service1")
            Host.Description.Behaviors.Add(behavior)
            Host.Open()
        End If
    End Sub

ServiceHost 类找不到相应的说明文档，这上面开始WCF服务的关键语句，哪位帮我注释一下，都有什么用。
他这里只指向上了，一个A项目中的Service1.vb，如果我有很多文件，如何添加？还是说一个端口只能对应一个文件？
这方面完全是不懂，请指教。