code test

[brad jones]

For x = 1 to 20234 Then
Each "asdfasdf "
so 'asdf';
For each blah blah 'asdf asdf adsf
REM adsfadsf adsf asdf asdf
EndIf
End
blah
more blah

For x = 1 to 20234 Then
Each "asdfasdf "
so 'asdf';
For each blah blah 'asdf asdf adsf
REM adsfadsf adsf asdf asdf
EndIf
End
blah
more blah 

For x = 1 to 20234 Then
Each "asdfasdf "
so 'asdf';
For each blah blah 'asdf asdf adsf
REM adsfadsf adsf asdf asdf
EndIf
End
blah
more blah

how now brown cow

[Harsh Gupta]

Private Sub Command1_Click()
Dim str As String
 
str = "Hello Message"
MsgBox str
 
End Sub

[Harsh Gupta]

	
	
Class form
    Private comboList As ArrayList = new ArrayList()
    private textList As ArrayList = New ArrayList()
       
    Public sub ComboBox1_Click()
          'At design time you can fill the Tag value of the control with the same number as the control one
          comboList.add(ComboBox1.Tag)
    End Sub
       
    public sub btn_case_search()
         For i As Integer to comboList.count-1
                Dim Field As ComboBox = Me.Controls("Field" & i)
         Next
    end sub
End class