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