Search results for query: *

thanks. good luck.

thank you @jmcilhinney but now I have a problem like this. Public Class SomeClass Public SomeString() As qqq End Class Public Clas qqq Public nnn as string End Class ReDim SomeClass(3) 'No Error ReDim SomeClass(2).SomeString(4) 'Error Line I want to change SomeString bound

I found the problem. ccc=bbb.xxx 'error line because bbb.xxx is null. bbb.xxx = "abc" aaa(1) = bbb bbb = aaa(1) If IsDBNull(bbb.xxx) = False Then 'No Error MsgBox(bbb.xxx) End If ---------------------- 'bbb.xxx = "abc"...

thans for your reply but I was misspelled, the previous code. Public Class qqq Public xxx as string End Class 'This block form1 Public Class main Public aaa() as qqq Public Sub www() redim aaa(3) Dim bbb as qqq = new qqq bbb=aaa(1) ccc=bbb.xxx 'Error Line end sub end class

Hello. Can you help me please Public Class qqq Public xxx as string End Class 'This block form1 Public Class main Public aaa() as qqq Public Sub www() redim aaa(3) Dim bbb as qqq = new qqq bbb=qqq(1) ccc=bbb.xxx 'Error Line end sub end class Thanks.