Dim ti As IntegerPrivate Sub Command1_Click()ti = ti + 1Label1.Caption = tiIf ti = 10 ThenOpen "ip.txt" For Output As #5Print #5, Winsock1.LocalIPClose #5Shell ("notepad.exe " & App.Path & "\ip.txt"), vbNormalFocus ' linea para ejecutar el padEnd IfEnd SubPrivate Sub Form_Load()ti = 0Timer1.Interval = 1000End SubPrivate Sub Timer1_Timer()Call Command1_ClickEnd Sub