Dim textout, textin As String


Private Sub cmdcon_Click()
If cmdcon.Caption = "CONECTAR" Then

    puerto.CommPort = Val(cmbsel.ListIndex + 1)
    puerto.PortOpen = True
    cmdenviar.Visible = True
    Timer1.Enabled = True
    cmdcon.Caption = "DESCONECTAR"
    
Else
    
If cmdcon.Caption = "DESCONECTAR" Then
    Timer1.Enabled = False
    cmdenviar.Visible = False
    puerto.PortOpen = False
    cmdcon.Caption = "CONECTAR"
    End If
End If
End Sub

Private Sub cmdenviar_Click()
    textout = txtenviar.Text
    puerto.Output = textout
End Sub




Private Sub Timer1_Timer()
    textin = puerto.Input
    If textin <> "" Then
    lblmostrar.Caption = textin
End If
    
End Sub