dim contador as integer
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
cont = cont + 1
Txtid.Text = cont
end sub
Ese código solo es cuando tienes abierto el form
si deseas se podría checar el id de la base de datos según tu tabla
ejemplo
traes el id
Dim ds As New DataSet
Dim s As String = ""
ds = miclase.traedataset("Select max(Id) from factura") ''Verificamos el id mayor que este en la base
Dim eid As Integer
If ds.Tables(0).Rows.Count > 0 Then
If IsDBNull(ds.Tables(0).Rows(0).Item(0)) Then '' si no se ha registrado nada le agregamos que sea 1
eid = 1
Else
eid = ds.Tables(0).Rows(0).Item(0) '' si ya tiene registros sumamos uno al id
eid += 1
End If
Else
End If
cualquier duda envía un email