编写一个简单的DNS服务程序

想实现这样一个程序，他可以接受53号端口发来的DNS请求，
并查询自己的域名数据库，然后给出DNS应答
请高手们给个简单的例子
为了简化编程，查询数据库可以省略，所有域名都可以解析为127.0.0.1
好像可以使用WinSock控件
灌水请绕道，非诚勿扰
vbshare@163.com

Dim a As String
Private Sub Command1_Click() '剪切
a = Text1.SelText
Text1.SelText = ""
End Sub

Private Sub Command2_Click() '粘贴
Text2.Text = Text2.Text & a
End Sub

你好！ 到相关团队的贴吧或者群里去问。人多力量大。 仅代表个人观点，不喜勿喷，谢谢。