CheckBox + Timer + Combobox

>>>>>>>>>>>>>>>>>> CheckBox

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            Timer1.Start()
        End If
        If CheckBox1.Checked = False Then
            Timer1.Stop()
        End If

>>>>>>>> Timer 

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        On Error Resume Next
        If ComboBox1.Text = "Aquí escribe el nombre agregado en la lista de cadena, que agrego en  combobox" Then
          Pointer--------------
        End If