VB也玩汉语编程

有些无奈，弄了这个大家看看，是不是也成汉语编程了，呵呵
一个Module1：
Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Public Function 信息提示框(信息内容 As String)
MsgBox 信息内容
End Function


Public Function 抓屏(容器 As Object)
   keybd_event vbKeySnapshot, 0&, 0&, 0&
   DoEvents
   容器.Picture = Clipboard.GetData(vbCFBitmap)
End Function



Public Function 星期() As String
Dim weekno As Integer, w As Variant
 w = Array("", "星期日", "星期一", "星期二", "星期三", "星期四", "星期五", "星期六")
 星期 = w(Weekday(Now))
End Function
'下面是调用的例子，三个Command
'下面是例子，三个Command
Private Sub Command1_Click()
信息提示框 "大家好"
End Sub

Private Sub Command2_Click()
抓屏 Me
End Sub

Private Sub Command3_Click()
信息提示框 星期 '这下综合利用，是不是全有点汉语变成的意思了呢？
End Sub