beginner question control button

[Paul123]

Hello,

Can sombody tell me why the code is not working?

Thanks...

Private Sub Button1_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles Button1.Click
        Dim CheckBox1 As Integer
        If CheckBox1 = 0 Then
            MsgBox("on")
            If CheckBox1 = 1 Then
                MsgBox("off")
            End If
        End If
    End Sub

 

[Paszt]

How is it not working? What are you expecting it to do? Why are you naming an integer variable CheckBox1?

 

[waynespangler]

    If CheckBox1.Checked = True Then
            MsgBox("on")
    Else
                MsgBox("off")
    End If