翱翔於山嵐之中

透過 Encoding 類別 
        命名空間為(System.TextSystem.Object)

共用事件處理程序
Private Sub Button1_Click(Byval sender As System.object,Byval e As System.EventArgs)Handles Button1.Click,Button2.Click,Button3.Click

         Msgbox( CType(sender, Button).Name )

Private Sub txtup_KeyPress(ByVal…) Handles txtup.KeyPress
    If Asc(e.KeyChar) >= 48 And Asc(e.KeyChar) <= 57 Then Exit Sub  '數字鍵

Dim Ex As Object
Ex = CreateObject( "EXCEL.Application" )