Private Sub Form_Load()
    ' Position this form.
    Move 300, 300

    ' Display the forms.
    Form2.Move Left + Width + 300, Top, Form2.Width, Height
    Form2.Show

    Form3.Move Left, Top + Height + 300, Width
    Form3.Show

    Form4.Move Left + Width + 300, Top + Height + 300, _
        Width, Height
    Form4.Show
End Sub

Private Sub Timer2_Timer()
Static value As Integer

    value = value + 1
    Form2.SendData value
End Sub

Private Sub Timer3_Timer()
    Form3.SendData Time
End Sub

Private Sub Timer4_Timer()
    Form4.SendData Rnd * 2000000000
End Sub