Private Sub Form_Activate() Dim xx As String xx = Text1.Text MsgBox xx End Sub
Private Sub Form_DblClick() Dim xx As String xx = Text1.Text MsgBox xx End Sub