Video Tutorial
Aprenderás a :
- Trabajar con la funcion interna ctype.
Trabajaremos con la funcion ctype .
Codigo Fuente
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'CTYPE
Dim valor1 As String = TextBox1.Text
Dim valor2 As String = TextBox2.Text
'TRUE --> -1
'FALSE --> 0
MsgBox(CType(valor1, Boolean) + CType(valor2, Boolean))
End Sub