vb2008 serial port events DCD DSR CTS

Code:
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        SerialPort1.PortName = "COM1"
        SerialPort1.Open()
    End Sub

    

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If SerialPort1.DsrHolding Then
            Label1.Text = "ON"
        Else
            Label1.Text = "OFF"
        End If

        If SerialPort1.CtsHolding Then
            Label2.Text = "ON"
        Else
            Label2.Text = "OFF"
        End If
        If SerialPort1.CDHolding Then
            Label3.Text = "ON"
        Else
            Label3.Text = "OFF"
        End If



    End Sub

    
End Class