Private Sub cmdButton_Click() Dim a As String, b As String picBox.Cls a = "e" b = "f" Call PrintWords(a, b) Call PrintWords(b, a) End Sub Private Sub PrintWords(x As String, y As String) picBox.Print x; y; End Sub
Private Sub cmdButton_Click() Dim x As String, y As String x = "tin" y = "can" Call Mystery(x, y) picOutput.Print x; " "; y End Sub Sub Mystery(ByRef x As String, ByVal y As String) Dim temp As String temp = x x = y y = temp End Sub