Public p1string = ""
 
    Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        If p1string <> "" Then
            e.Graphics.DrawString(p1string, New Font(Me.Font.FontFamily, 16, _
              FontStyle.Bold), Brushes.Green, 0, 0)
        End If
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim f2 As New Form2(Me)
        f2.Show()
    End Sub

    Private _f1 As Form1
    Public Sub New(ByVal f1 As Form1)
        MyBase.New()
 
        'This call is required by the Windows Form Designer.
        InitializeComponent()
 
        'Add any initialization after the InitializeComponent() call
        _f1 = f1
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        _f1.p1string = TextBox1.Text
        _f1.Refresh()
    End Sub