Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If Not flecha Then
If ComboBox1.Text.Length = 0 Then
If chequear = False Then
MsgBox("La información de este campo es obligatoria", MsgBoxStyle.Exclamation, "Aviso")
GroupBox3.Enabled = False
BotonGuardar.Enabled = False
GroupBox5.Enabled = False
For j = 1 To CantidadTrigo
If Not (VectorTrigo(j) = "") Then
Button1.Enabled = True
j = CantidadTrigo
End If
Next j '....
end sub