Wednesday, June 29, 2011

Code ● UnPresentableObject


Public Class Yin2
    Protected Class UnPresentableObject
        Protected Friend Year, Msg As String
    End Class

Private Sub Brain_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBrain.Load
        Dim ItemsStored() As Object = Nothing
        Dim obj() As UnPresentableObject

        ReDim Preserve obj(1)
        obj(0) = New UnPresentableObject
        obj(0).Year = "2010"
        obj(0).Msg = "..."

        obj(1) = New UnPresentableObject
        obj(1).Year = "2011"
        obj(1).Msg = "IvTydpSoqUvzxdeqRioiRnwoEpocQkhwlUnmdElcjswSdhgTbvo8"
  'Message Encrypted

        ReDim Preserve ItemsStored(1)
        ItemsStored(0) = obj(0)
        ItemsStored(1) = obj(1)
    End Sub
End Class

2 comments:

hanyi said...

Although I don't understand what you writing, but it's NICE!!..
nice coding.. hehe!

Yin Yin said...

haha. thanks give face worrrr