急求一个简单VB6.0程序的源代码

急求一个简单VB6.0程序的源代码

你要什么原代码啊？
随便一个吗？
我给你你个吧，希望能够帮助你！呵呵

我随便从我的军棋代码中给你复制部分就行了
Private Sub Command1_Click()
statestring = "r" & statestring
Winsock2.SendData statestring
Command1.Enabled = False: hong = 1:
If Label3.Caption = "请等待红方就坐" Then
Label2.Caption = " ": Label3.Caption = " "
Command3.Enabled = True: Command4.Enabled = True: Command5.Enabled = True: Command7.Enabled = True
MsgBox ("请按开始按钮开始摆棋！")
Else
Label2.Caption = "请等待黑方就坐"
End If
statestring = "t" & "红方已经摆好棋！": Winsock2.SendData statestring: statestring = " "
End Sub

Private Sub Command2_Click()
k = k + 1
If k / 2 <> k \ 2 Then
statestring = "b" & statestring
Winsock2.SendData statestring
End If
Command2.Enabled = False: hong = 0
If Label2.Caption = "请等待黑方就坐" Then
Label3.Caption = " ": Label2.Caption = " "
Command3.Enabled = True: Command4.Enabled = True: Command5.Enabled = True: Command7.Enabled = True
MsgBox ("请按开始按钮开始摆棋！")
Else
Label3.Caption = "请等待红方就坐"
End If
If hong = 0 Then
For i = 0 To 24
Command6(i).BackColor = &H808080
Command6(i + 25).BackColor = &H8080FF
Next
End If
statestring = "t" & "黑方已经摆好棋！": Winsock2.SendData statestring: statestring = " "
End Sub
因为太长,你可以随便修改一下,只用三个command就行了!