Visual Basic

<br />
If strfilecontent.IndexOf("this is the first part") <> -1 Then<br />
messagebox.show("found")<br />
end if<br />

   Private Sub NewToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripButton.Click<br />
<br />
        Dim mycmd As New SqlCommand("SELECT MAX(DiscountId) AS discID FROM(Discountstructure)", MDIParent1.Conn)<br />
        mycmd.CommandType = CommandType.Text<br />
<br />
        Dim disc1ID As Integer<br />
<br />
        MDIParent1.Conn.Open()<br />
        disc1ID = CType(mycmd.ExecuteScalar(), Integer)<br />
        MDIParent1.Conn.Close()<br />
<br />
        MsgBox(disc1ID.ToString)<br />
    End Sub

Public Sub New(ByVal name As String, ByVal type As String, ByVal scheduledTime As Date, ByVal< scheduledDate As Date, ByVal details As String, ByVal status As String, ByVal completionNotes As String)<br />
        InitializeComponent()<br />
<br />
        Me.cboUsers.Text = name 'Does not assign the new name<br />
        Me.cboType.Text = type 'Does not asign the new type<br />
        Me.dtScheduledTime.Value = scheduledTime<br />
        Me.dtScheduledDate.Value = scheduledDate<br />
        Me.txtDetails.Text = details<br />
        Me.cboStatus.Text = status<br />
        Me.txtCompletionNotes.Text = completionNotes<br />
<br />
    End Sub