Private Sub CheckedListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CheckedListBox1.SelectedIndexChanged

        If CheckedListBox1.GetItemCheckState("체크박스1") = CheckState.Checked Then


            TextBox1.Text = Val(TextBox1.Text) + Val(400)


        End If


    End Sub


초짜라서...


디버그는 되는데 체크만 하면 오류가 나오네요