[.NET] 如何簡短程式

[btohung (hung)]

  Private Sub TextBox2_GotFocus(ByVal sender As Object, ByVal e As System.Event
Args) Handles TextBox2.GotFocus
        UserControl11.Show()
        num = 2
    End Sub

    Private Sub TextBox3_GotFocus(ByVal sender As Object, ByVal e As System.Eve
ntArgs) Handles TextBox3.GotFocus
        UserControl11.Show()
        num = 3
    End Sub

    Private Sub TextBox4_GotFocus(ByVal sender As Object, ByVal e As System.Eve
ntArgs) Handles TextBox4.GotFocus
        UserControl11.Show()
        num = 4
    End Sub

    Private Sub TextBox5_GotFocus(ByVal sender As Object, ByVal e As System.Eve
ntArgs) Handles TextBox5.GotFocus
        UserControl12.Show()
        num = 5
    End Sub

以上是我的程式碼，一看就知道 雖然每個做的工作都不一樣
但是 都是一樣的模式，不過我卻不知道怎麼去縮短他
有版上的大大可以告知嗎?
不知道用呼叫能不能

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 59.116.187.117