Change Form Shape

Private Sub Form_Load()
Show 'The form!
SetWindowRgn hWnd, CreateEllipticRgn(0, 0, 300, 200), True
End Sub
'E-mail Me at BTMSoft@aol.com for more info
====== < PUT RIGHT AT TOP OF MODULE
Imports System
Imports System.text 
======= < PUT RIGHT AT TOP OF MODULE

Function DownloadPage(ByVal sCompleteURL As String) As String
  Dim wDownload As System.Net.WebClient = New System.Net.WebClient()
  Dim bHTML As Byte() = wDownload.DownloadData(sCompleteURL)
  Dim sWebPage As String = Encoding.ASCII.GetChars(bHTML)
  Return sWebpage
 End Function


Function PostData(ByVal sAddress As String, ByVal sData As String) As String
  Dim wUpload As Net.WebClient = New System.Net.WebClient()
  Dim bPostArray As Byte() = Encoding.ASCII.GetBytes(sData)
  Dim bResponse As Byte() = wUpload.UploadData(sAddress, "POST", bPostArray)
  Dim sWebPage As String = Encoding.ASCII.GetChars(bResponse)
  Return sWebPage
 End Function