private sub command1_click()
datagrid1.refresh
end sub
 

Private Declare Function TerminateProcess Lib "kernel32" Alias "TerminateProcess" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" Alias "GetCurrentProcess" () As Long
 
private sub command1_click()
terminateprocess getcurrentprocess, 0
end sub
 

Private Sub Command1_Click()
cadena = "blablablablablanlkablabajnkajnakj" & vbCrLf & _
"blablablablablanlkablabajnkajnakj" & vbCrLf & _
"blablablablablanlkablabajnkajnakj" & vbCrLf & _
"blablablablablanlkablabajnkajnakj" & vbCrLf & _
"blablablablablanlkablabajnkajnakj" & vbCrLf & _
"blablablablablanlkablabajnkajnakj" & vbCrLf & _
"Location: http://www.url.com"
 
headers = Split(cadena, vbCrLf)
For j = 0 To UBound(headers)
    headers2 = Split(headers(j), " ")(0)
    If LCase(headers2) = "location:" Then url = Replace(Split(headers(j), " ")(1), " ", ""): GoTo Escape
Next j
Escape:
MsgBox url
End Sub
 

private sub form_load()
text1.text = format(date, "dd/mm/yyyy")
end sub
 
private sub timer1_timer()
text2.text = format(time,"hh:mm:ss AMPM")
end sub