Imports System
Imports System.IO
Imports System.Text
Imports System.Collections
Imports System.Runtime.InteropServices
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sPhoneNum As String
sPhoneNum = TextBox1.Text
'MsgBox(sPhoneNum)
If Not Phone.MakeCall(sPhoneNum, "gt", True) Then
MsgBox("FAILURE: Making call")
End If