巨獸 逆襲

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        TB1.Text = Space(4) & "工作薪資表" & Now() & vbCrLf & vbCrLf
        TB1.Text &= "姓名   薪資    職務" & vbCrLf
        TB1.Text &= "張三豐" & Format(10000, "c") & "經理" & vbCrLf
        TB1.Text &= "樵鋒   $50000  工程師" & vbCrLf
        TB1.Text &= "令狐沖 $14000  秘書" & vbCrLf
    End Sub
End Class