Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "a": Text2.Text = "bcd": Text3.Text = "abc" Open "c:\date.txt" For Output As #1 Print #1, Text1.Text & " " & Text2.Text & " " & Text3.Text & " " Close #1 End Sub
Text1.Text = "a": Text2.Text = "bcd": Text3.Text = "abc"
Open "c:\date.txt" For Output As #1
Print #1, Text1.Text & " " & Text2.Text & " " & Text3.Text & " "
Close #1
End Sub