Sub Button1_Click
Mediaplayer1.Initialize
MediaPlayer1.Load(File.DirAssets, "Click1.wav")
MediaPlayer1.Play
Dim p As PhoneCalls
If Msgbox2("Deseja ligar ?", "", "Sim", "", "Não", Null) = DialogResponse.POSITIVE Then
'make call
StartActivity(p.Call("123456789"))
End If
End Sub