Public Class Class1
  Private _dgv As DataGridView
 
  Property dgv() As DataGridView
    Get
      Return _dgv
    End Get
    Set(ByVal value As DataGridView)
      _dgv = value
    End Set
  End Property
 
  Public Sub Test()
    MsgBox(dgv.Rows(1).Cells(1).Value)
  End Sub
End Class

Public Class Form1
  Dim mClass As Class1
 
  Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
    With Me.DataGridView1
      .Rows.Add("Dieter", "Otter", "Steinach")
      .Rows.Add("Heinz", "Mustermann", "Irgendwo")
    End With
 
    mClass = New Class1
    mClass.dgv = Me.DataGridView1
  End Sub
 
  Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
 
    mClass.Test()
  End Sub
End Class

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de