Expand|Select|Wrap|Line Numbers
- Dim Array(7) As Char
- Dim myman As String = TextBox1.Text
- Dim capcount As Integer = 0
- Array = myman.ToCharArray
- If TextBox1.Text = TextBox2.Text Then
- If TextBox1.Text = "" Then
- MessageBox.Show("mhm")
- Stop
- End If
- For i = 0 To 7
- If Char.IsUpper(Array, i) Then
- capcount = capcount + 1
- End If