Imports System.Data.SqlClient
Imports System.Globalization
'-----------------------------------------------
Public Class PrTeste
    Dim winclass As New classuser
'----------------------------------------------------------	
    Private Sub C1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C1.SelectedIndexChanged
        If C1.SelectedValue.ToString() <> "" Then
            Dim idclient As Integer = Convert.ToInt32(C1.SelectedValue.ToString())
            winclass.FillTVX(idclient)
            'cmbC3.SelectedIndex = 0
        End If
    End Sub
'----------------------------------------
    Private Sub PrTeste_Load(ByVal sender As Object, ByVal e As EventArgs)
        winclass.FillClient()

    End Sub
'--------------------------------------
    Private Sub C2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C2.SelectedIndexChanged
        Dim id_affaire As Integer = Convert.ToInt32(C2.SelectedValue.ToString())
    End Sub

End Class