form1.vb

来自「清华大学出版社出版的 移动应用开发宝典 张大威（2008）的附书源代码」· VB 代码 · 共 16 行

Imports Microsoft.WindowsMobile.PocketOutlook


Public Class Form1

    Private Sub btnSmsSend_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnSmsSend.Click
        Dim s As New SmsMessage(Me.txtSmsTo.Text, Me.txtSmsBody.Text)
        s.Send()
    End Sub





End Class