Public Class SomeClass
        Private _s1 As String
        Private _i1 As Integer
 
        Public Sub New(ByVal s1 As String, ByVal i1 As Integer)
            _s1 = s1
            _i1 = i1
        End Sub
 
        Public Property S1() As String
            Get
                Return _s1
            End Get
            Set(ByVal value As String)
                _s1 = value
            End Set
        End Property
        Public Property I1() As Integer
            Get
                Return _i1
            End Get
            Set(ByVal value As Integer)
                _i1 = value
            End Set
        End Property
        Public Overrides Function ToString() As String
            Return "S1=""" & S1 & """" & " I1=" & I1.ToString()
        End Function
    End Class
 
    Dim asc As New SomeClass("string1", 123)
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.PropertyGrid1.SelectedObject = asc
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        MsgBox(asc.ToString())
    End Sub

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov