indice en combo box

[Victordemi]

despues de todo el webeo lo ise en VB 6.0 lo importe
con .net 2008 para ver como lo asia y importo componentes de VB 6.0
a un lisbox y lo consulta, nada buena calidad pero funciona

codigo

Código HTML:

Option Strict Off
Option Explicit On
Imports VB = Microsoft.VisualBasic
Friend Class Form1
	Inherits System.Windows.Forms.Form
	'UPGRADE_WARNING: El evento Combo1.SelectedIndexChanged se puede desencadenar cuando se inicializa el formulario. Haga clic aquí para obtener más información: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="88B12AE1-6DE0-48A0-86F1-60C0686C026A"'
	Private Sub Combo1_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Combo1.SelectedIndexChanged
		Text1.Text = CStr(VB6.GetItemData(Combo1, Combo1.SelectedIndex))
	End Sub
	
	Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		Dim i As Object
		
		For i = 0 To 10
			'UPGRADE_WARNING: No se puede resolver la propiedad predeterminada del objeto i. Haga clic aquí para obtener más información: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
            Combo1.Items.Add(New VB6.ListBoxItem(CStr(VB.Day(Today)), CInt(i)))
			
		Next i
		
		
	End Sub
End Class

eso chauuuu