Public Class frmRandom
 
    Dim WithEvents dt As New DataTable
 
    Dim bs As New BindingSource With {.DataSource = dt}
 
    Dim WithEvents dgv As New DataGridView With {.Parent = Me, .DataSource = bs}
 
    Dim rndm As New Random(1234)
 
    Private Sub frmRandom_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        With dt.Columns
            .Add("Titel")
            .Add("Benutzername")
            .Add("Passwort")
        End With
        dgv.Columns(2).Visible = False
    End Sub
 
    Private Sub dt_TableNewRow(sender As Object, _
        e As System.Data.DataTableNewRowEventArgs) Handles dt.TableNewRow
        e.Row("Passwort") = CStr(rndm.Next(999999, 99999999))
    End Sub
End Class