Private Sub Command1_Click()
Dim sid As Integer
sid = Left(List1, 1)'就这里提示类型不匹配
sckServer(sid).SendData "c" & Text1
End Sub

left返回的是字符串,而你的sid是整型,当然不匹配
而且你只用List1,这样不行吧?  
sid=val(List1.text,1)