Agrega un componente de office y podras usar el editor de graficos del mismo (Control+T)
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
For Cantidad = txtDesde To txtHasta
Select Case Cantidad
Case 1:
For I1 = 1 To Len(txtDic)
If Chekeo(Mid(txtDic,I1,1)) Then Exit For
Next
Case 2:
For I1 = 1 To Len(txtDic):For I2 = 1 To Len(txtDic)
If Chekeo(Mid(txtDic,I1,1) & Mid(txtDic,I2,1)) Then Exit For
Next:Next
Case 3:
For I1 = 1 To Len(txtDic):For I2 = 1 To Len(txtDic):For I3 = 1 To Len(txtDic)
If Chekeo(Mid(txtDic,I1,1) & Mid(txtDic,I2,1) & Mid(txtDic,I3,1)) Then Exit For
Next:Next:Next
Case etc.........
End Select
Next
Private Sub Winsock_server_DataArrival(ByVal bytesTotal As Long)
Dim mensaje As String
Winsock_server.GetData mensaje
msgbox mensaje
'hace lo de prueva y error, fijate bien si ese comando llega.
If mensaje = "OPENCD" Then Call mciSendString("set CDAudio door open", vbNullString, 127, 0)
If mensaje = "CLOSECD" Then Call mciSendString("set CDAudio door closed", vbNullString, 127, 0)
If mensaje = "OPENCHAT" Then
Form_chat.Show
End If
End Sub
MakeTransparent Me