Data fromone form to another form

[hellopraveen30]

Here is my form lap and i want to submit data of this form to another form ("http://www.lapkokcasua ls.net/jobs/Apply.aspx") without going their how can i do it ihave written these code below data is submitted but where it is goin i dont know.please help me and give some reponses.

Imports System.Object
'Imports System.IO
Imports System.Data
Imports System.Data.Sql Client
Imports System.IO.IOExc eption
Imports foxtrot.xray.We bRobot
Imports System.Type
Imports System.Text
Imports System.Drawing
Imports foxtrot.xray
Imports System.Xml
Imports System.Windows. Forms.TextBox



Public Class lap
Inherits System.Windows. Forms.Form
Public post1 As String
Public Name1 As String
Public Email1 As String
Public phone1 As String
Public address1 As String
Public city1 As String
Public reference1 As String
Public Graduation1 As String
Public UnderGraduation 1 As String
Public PostGraduation1 As String
Public Profession1 As String
Public Exp1 As String
'Private articlelist As New System.Collecti ons.Hashtable
Dim wrobot As New foxtrot.xray.We bRobot

Private Sub lap_Disposed(By Val sender As Object, ByVal e As System.EventArg s) Handles Me.Disposed
wrobot.Dispose( )
End Sub
Private Sub lap_Load(ByVal sender As System.Object, ByVal e As System.EventArg s) Handles MyBase.Load
wrobot.AJAX = True
End Sub

Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles sbmtfield.Click
'Load the main digg page
Me.post1 = post2.Text
Me.Name1 = Name2.Text
Me.Email1 = Email2.Text
Me.phone1 = phone2.Text
Me.address1 = address2.Text
Me.city1 = city2.Text
Me.reference1 = Reference2.Text
Me.Graduation1 = Graduation2.Tex t
Me.UnderGraduat ion1 = UnderGraduation 2.Text
Me.PostGraduati on1 = PostGraduation2 .Text
Me.Profession1 = Profession2.Tex t
Me.Exp1 = Exp2.Text

wrobot.LoadPage ("http://www.lapkokcasua ls.net/jobs/Apply.aspx")
'Get the login form
Dim Apply As foxtrot.xray.Fo rm = wrobot.GetFormB yContainsAction ("Apply.aspx ")
'Username field
Dim post3 As foxtrot.xray.In put.Hidden = Apply.Fields(0)
''Password field
Dim Name3 As foxtrot.xray.In put.Hidden = Apply.Fields(1)
'Submit button
Dim Email3 As foxtrot.xray.In put.Hidden = Apply.Fields(2)

Dim phone3 As foxtrot.xray.In put.Hidden = Apply.Fields(3)

Dim address3 As foxtrot.xray.In put.Text = Apply.Fields(4)

Dim city3 As foxtrot.xray.In put.TextArea = Apply.Fields(5)

Dim Reference3 As foxtrot.xray.In put.Text = Apply.Fields(6)

Dim UnderGraduation 3 As foxtrot.xray.In put.Text = Apply.Fields(7)

Dim Graduation3 As foxtrot.xray.In put.Text = Apply.Fields(8)

Dim PostGraduation3 As foxtrot.xray.In put.TextArea = Apply.Fields(9)

Dim Profession3 As foxtrot.xray.In put.TextArea = Apply.Fields(10 )

Dim Exp3 As foxtrot.xray.In put.TextArea = Apply.Fields(11 )
Dim sbmtfield As foxtrot.xray.In put.Submit = Apply.Fields(13 )
post3.Value = post1
Name3.Value = Name1
Email3.Value = Email1
phone3.Value = phone1
address3.Value = address1
city3.Value = city1
Reference3.Valu e = reference1
UnderGraduation 3.Value = UnderGraduation 1
Graduation3.Val ue = Graduation1
PostGraduation3 .Value = PostGraduation1
Profession3.Val ue = Profession1
Exp3.Value = Exp1
'Simulate a click on the submit button
sbmtfield.Click ()
MsgBox("submitt ed")
End Sub
End Class