Imports System Imports System.IO Imports System.Text Imports System.Environment Public Class Form1 Dim slowchecked As Boolean = False Dim filepath As String Dim code1 As String = "" Dim slowdown As String Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged If slowchecked = False Then slowdown = ("start" & NewLine & "start" & NewLine & "start" & NewLine & "start" _ & NewLine & "start" & NewLine & "start" & NewLine & "start crash" & NewLine) code1 = (code1 & slowdown) slowchecked = True ElseIf slowchecked = True Then Replace(code1, slowdown, "") MsgBox(code1) slowchecked = False End If End Sub End Class
noOfItems = 6 ^ ^ ^ | | | | | -- Value | ---- Assignment operator ---------- Variable
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)