[matyash]

не выходит:
у меня массив public:

вот форма 1

Код:

Public Class Form1
    Dim sum As Double

    Private Sub Button40_Click(sender As Object, e As EventArgs) Handles Button40.Click
        Form2.Show()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        TextBox1.Text = TextBox1.Text & "мясной - " & Convert.ToString(costs(1)) & vbCrLf
        sum = sum + costs(1)
        TextBox2.Text = Convert.ToString(sum)
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TextBox1.Text = TextBox1.Text & "элегия - " & Convert.ToString(costs(0)) & vbCrLf
        sum = sum + costs(0)
        TextBox2.Text = Convert.ToString(sum)
    End Sub

    Private Sub Button39_Click(sender As Object, e As EventArgs) Handles Button39.Click
        TextBox1.Clear()
        TextBox2.Clear()
        sum = 0
    End Sub

модуль

Код:

Module Module1
    Public costs() As Double = {12, 23}

End Module

форма 2

Код:

 Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
        If TextBox2.Text <> "" Then
            costs(1) = Convert.ToDouble(TextBox2.Text)
        Else
            costs(1) = costs(1)
        End If
    End Sub
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        If TextBox1.Text <> "" Then
            costs(0) = Convert.ToDouble(TextBox1.Text)
        Else
            costs(0) = costs(0)
        End If