Sub cmdSendIntent_Click()
Dim Intent1 As Intent
Intent1.Initialize("com.majordisplay.jashanno.broadcastreceivertest.PacketReceiver", "")
Intent1.SetComponent("com.majordisplay.jashanno.packetbroadcast")
Intent1.PutExtra("value", txtPacket.Text)
StartActivity(Intent1)
ToastMessageShow("Intent Sent", True)
End Sub