in vb 6 this was the simple code i used :
Code:
Public Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) Set ppDisp = WebBrowser1.object WebBrowser1.Navigate
Public Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) Set ppDisp = WebBrowser1.object WebBrowser1.Navigate
If Not IsNumeric(Textbox.Text) Or Textbox.Text = ""
Textbox.Text = Format(Convert.ToInt32(Textbox.Text), "0000")
Dim details As String() = {TextBox1.Text, TextBox2.Text} Dim list As New ArrayList() For Each detail As String In details list.Add(detail) Next detail
reader = File.OpenText("C:\sample.txt")
Leave a comment: