I use below code incase of assigning Data to an object. But Could not success?
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
	    Dim nokta As Object
	    Dim blok As AcadBlockReference
	    nokta = utilty.GetPoint("0,0,0", "Blok eklenecek Noktayı seç")
	    blok = mSpace.InsertBlock(nokta, "ilk", 1, 1, 1, 0,)
	    blok.SetXData("string", "Deneme")
    End Sub
Regards,
Mucip:)


			
			








