189 8069 5689
Dim ThisDay As String = Format(Now, "yyyy-MM-dd") '获得当前日期字符串
让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：国际域名空间、网页空间、营销软件、网站建设、屏边网站维护、网站推广。
Dim ThisDateTime As DateTime = Convert.ToDateTime(ThisDay) '当前日期转换成DateTime
Dim ThisWeekDay As Integer = ThisDateTime.DayOfWeek '获得当前日期是星期几
Dim differadd As Integer = 1 - ThisWeekDay '相差的天数（星期1与当前星期几相差的天数）
Dim MyAdd As New TimeSpan(differadd, 0, 0, 0)
Dim MyYear As Integer = Format(Now, "yyyy") '获取当前日期的年份
Dim MyMonth As Integer = Format(Now, "MM") '获取当前日期的月份
Dim MyDay As Integer = Format(Now, "dd") '获取当前日期是几号
Dim MyToday As DateTime = New DateTime(MyYear, MyMonth, MyDay)
Dim Yourday As DateTime = MyToday.Add(MyAdd)
MsgBox("本周星期一的日期是：" Yourday)
你需要会用GDI+,也就是那个System.Drawing命名空间下的类.
给你说个思路,设Timer,到时间就用Form.Invalidate()函数重画窗口,在重画窗口的Form_Paint事件下面编写代码得到当前时间,再根据当前时间用GDI+画时钟.
将时间转换为指定的字符串格式用：Now.ToString("yyyyMMddHHmmss")就Ok了。
例如：年份用小写yyyy(大写不识别)，大写MM识别为月份，小写mm识别为分钟，日期天为大写DD(小写不识别)，
小时大写HH识别为24小时制，小写hh识别为12小时制，秒用小写ss(大写不识别)
补充：Visual Basic.NET是基于微软.NET Framework之上的面向对象的编程语言。
其在调试时是以解释型语言方式运作,而输出为EXE程序是是以编译型语言方式运作。
可以看作是Visual Basic在.Net Framework平台上的升级版本，增强了对面向对象的支持。大多的VB.Net程序员使用Visual Studio .Net作为IDE（integrated development environment).SharpDevelop是另一种可用的开源的IDE。
VB.Net需要在.Net Framework平台上才能执行。