Dim contador As Integer ' Esta la uso para todo lo que necesite contar
Private sueldo(3) As Integer ' Mi Estructura para guardar
Dim f As Integer
Private Sub vec()
f = f + 1
If txtsueldo.Text > 0 Then
sueldo(f) = txtsueldo.Text
MsgBox("Registro Ingresado")
txtsueldo.Text = ""
txtsueldo.Focus()
End If
If f = 3 Then
Me.CMDenviar.Enabled = False
Me.Button1.Enabled = True
End If
End Sub
Private Sub mostrar_vec()
For X = 1 To sueldo.LongLength
MessageBox.Show( "El Item " & x-1 & "Tiene el valor de : " & sueldo(X - 1))
Next X
End Sub
Private Sub CMDenviar_Click(sender As System.Object, e As System.EventArgs) Handles CMDenviar.Click
vec()
End Sub
Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
f = f - 1 'Asi cuando inicia el formulario dices que f = f-1
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
mostrar_vec()
End Sub
End Class