Trabajo De Visual, Estudio

Public Class misclientes
Structure clientes
Dim codigo As Byte
Dim Nombre As String
Dim Direccion As String
Dim RUC As String
End Structure
Publictotal As String
Dim misclientes(3) As clientes
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

misclientes(0).codigo = 1misclientes(0).Nombre = "Carlos"
misclientes(0).Direccion = "Av. Lima 200"
misclientes(0).RUC = 10295343996
misclientes(1).codigo = 2
misclientes(1).Nombre ="Juan"
misclientes(1).Direccion = "Calle Ancash 411"
misclientes(1).RUC = 10258945455
misclientes(2).codigo = 3
misclientes(2).Nombre = "Maria"misclientes(2).Direccion = "Las Amatistas G-9"
misclientes(2).RUC = 20295883996
misclientes(3).codigo = 4
misclientes(3).Nombre = "Milagros"
misclientes(3).Direccion = "Jr.Trujillo 500"
misclientes(3).RUC = 1025543988
For i = 0 To misclientes.GetUpperBound(0)
cboclientes.Items.Add(misclientes(i).codigo)
Next
total = 0End Sub


Private Sub cboclientes_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboclientes.SelectedIndexChanged
Dim Codcli As IntegerCodcli = Val(cboclientes.Text) - 1
txtNombre.Text = misclientes(Codcli).Nombre
txtDireccion.Text = misclientes(Codcli).Direccion
TxtRUC.Text =misclientes(Codcli).RUC

End Sub

Private Sub btnsalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsalir.Click
End
End Sub

Private SubbtnRegistrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRegistrar.Click
Dim codpro As Integer
Dim subtotal As Integer
Dim cant As String
codpro =...