Foro de elhacker.net

Private Sub cmdSalir_Click()
    End
End Sub

Private Sub cmdVariable_Click()
    Dim Variable As Integer
        Variable = txtVariable.Text
        'Comprobar si la variable es mayor o igual a 10
        If Variable >= "10" And txtVariable.Text >= "10" Then
            MsgBox "El valor es mayor o igual a 10: " & Variable
            Else
                MsgBox "Debe ingresar un valor valido", vbQuestion + vbOKOnly, "Datos invalidos"
                txtVariable.SetFocus
                    Exit Sub
        End If
         
End Sub

Private Sub lvwEstadoCivil_Click()
    Dim Soltero As String
    Dim Casado As String
    Dim Divorciado As String
    Dim Viudo As String
    'Seleción de variables por lista
        Select Case lvwEstadoCivil.ListIndex
            Case 0
                Soltero = "Juan Peñaloza"
                txtNombres.Text = Soltero
            Case 1
                Casado = "Franklin Mendez"
                txtNombres.Text = Casado
            Case 2
                Divorciado = "Antonio Álvarez"
                txtNombres.Text = Divorciado
            Case 3
                Viudo = "Victor Speed"
                txtNombres.Text = Viudo
                End Select
End Sub