Keskustelu: Ohjelmointikysymykset: VB6: Tiedonvälitys

Module Module1
    Dim tieto As String
    Sub Laheta_tieto(ByVal Lahde As String)
        tieto = Lahde
    End Sub

    Sub Vastaanota_tieto(ByVal Tulo As String)
        Tulo = tieto
    End Sub
End Module

'Välitin tiedon näin (vb ehdotti tätä):
'Lähetysformi:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Voiko_menna_seuraavaan = False Then
            MsgBox("Select your languange!")
            Exit Sub
        End If

        Laheta_tieto(Lahde:=kieli)

        Me.Hide()
        Form2.Show()
    End Sub

'Tossa alhaalla vastaanottoformi:

Public Class Form3
    Dim kieli As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ProgressBar1.Value = 1
        Vastaanota_tieto(Tulo:=kieli)

        MsgBox("Your languange: " & kieli)
    End Sub
End Class