[vb6] IP grabber

[Violent_J]

Public Function GB(rC As String, rS As String, rF As String, Optional lgB As Long = 1) As String
    lgB = InStr(lgB, rC, rS) + Len(rS): GB = Mid$(rC, lgB, InStr(lgB, rC, rF) - lgB)
End Function

Private Sub cmdgetip_Click()

    Dim strIP As String
    txtip.Text = w.GetWrapper("http://whatsmyip.org/")
    strIP = GB(txtip.Text, "What's My IP Address? Your IP is", "</title>")
    txtip.Text = strIP

End Sub

Private Sub Form_Unload(Cancel As Integer)
    Dim frmTemp As Form
    For Each frmTemp In Forms
    Unload frmTemp
    Set frmTemp = Nothing
    Next
    End
End Sub