[RESOLVED] How can i get the current ie home page in text1?

[newprogram]

How can I get the current "IE" home page to read out in text1 .

[GRPsuper9]

Private Function ReadKey(Value As String) As String
    Dim b As Object
    On Error Resume Next
    Set b = CreateObject("wscript.shell")
    r = b.RegRead(Value)
    ReadKey = r
End Function

Private Sub cmdShowHomePage()
    Text1.Text = ReadKey("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page")
End Sub

[newprogram]

thank you that works great !!!

Private Function ReadKey(Value As String) As String
    Dim b As Object
    On Error Resume Next
    Set b = CreateObject("wscript.shell")
    r = b.RegRead(Value)
    ReadKey = r
End Function

Private Sub cmdShowHomePage()
    Text1.Text = ReadKey("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page")
End Sub

[GRPsuper9]

Yap, no problem . Give me some Rep+ if u want

[GRPsuper9]

Please mark this threat as Resolved when you get the chance.

[newprogram]

Rep given