سلام.
از طریق Split کردن.
Sub Globals
Private Label1 As Label
Dim m() As String
Dim Timer1 As Timer
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout1")
Timer1.Initialize("Timer1",1000)
Timer1.Enabled = True
End Sub
Sub Timer1_Tick
m=Regex.Split(":",DateTime.Time(DateTime.Now))
Label1.Text = m(0)&":"&m(1)
End Sub
اگه دوست داری بیشتر یاد بگیری به این تاپیک مراجعه کن: http://answercenter.ir/thread183.html
توی تاپیک بالا کامل توضیح دادم واسه سوال Mashgholom
این هم میتونه اطلاعاتتون رو بیشتر کنه: http://answercenter.ir/thread18.html
موفق باشی