PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.ClickDimiAsIntegerDimstrAsNewSystem.Text.StringBuilder()Fori=128To255str.Append(\"\"&Convert.ToChar(i))NextLabel1.Text=str.ToStringEndSub
PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.ClickDimiAsIntegerDimstrAsNewSystem.Text.StringBuilder()Fori=128To255str.Append(\"\"&Convert.ToChar(i))NextLabel1.Text=str.ToStringEndSub