VB Code:
Public Class frmquerie
Inherits System.Windows.Forms.Form
Event GetSqlStatement()
blah blah
Private Sub btnexecute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexecute.Click
RaiseEvent GetSqlStatement()
_GetSqlString = txtsqlstring.Text
MsgBox(getsqlstring.ToString)
End Class
On the other form
Public Class frmcolours
Inherits System.Windows.Forms.Form
Dim WithEvents _frmquerie As New common.frmquerie
Private Sub getthesql() Handles _frmquerie.GetSqlStatement
TextBox1.Text = _frmquerie.getsqlstring
End Sub