Public Class Cell : Inherits DataGridViewCell
    Private intID As Integer
    Private StrInhalt As String
 
    Property ID As Integer
        Get
            ID = intID
        End Get
        Set(newname As Integer)
            intID = newname
        End Set
    End Property
 
    Property Inhalt As String
        Get
            Inhalt = StrInhalt
        End Get
        Set(newInhalt As String)
            StrInhalt = newInhalt
        End Set
    End Property
 
    Public Sub New(ByVal p_ID As Integer, p_Inhalt As String)
 
 
        intID = p_ID
        StrInhalt = p_Inhalt
 
 
    End Sub
 
 
 
End Class

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim c1 As New Cell(1, "Johannes")
 
        DataGridView1.ColumnCount = 2
        DataGridView1.Rows.Add(1)
 
 
        c1 = DataGridView1.Rows(0).Cells(0)
        c1.Value = "Hallo"
    End Sub