Private Sub timer_Tick(ByVal sender As Object, ByVal e As EventArgs)
        lblText.Text = DateTime.Now
        Me.Image1.Source = New Imaging.BitmapImage(New Uri( _
          "http://localhost/test_dw/img/snap.jpg"))
    End Sub