大佬们求助vb tcp的问题

Private Sub Form_Load()
frmserver.LocalPort = 1001 '设置侦听端口
frmserver.Listen '侦听
End Sub
为什么会显示未找到方法或数据成员啊...