Sub Procedure

Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
        'Calculates the time for the different time zones.
 
        lblIsraelTime.Text = dtpYourTime.Value.AddHours(6).ToString("T")
        lblRussiaTime.Text = dtpYourTime.Value.AddHours(8).ToString("T")
        lblSouthKoreaTime.Text = dtpYourTime.Value.AddHours(13).ToString("T")
        lblisraelDate.Text = dtpYourTime.Value.AddHours(6).ToString("D")
        lblRussiaDate.Text = dtpYourTime.Value.AddHours(8).ToString("D")
        lblSouthKoreaDate.Text = dtpYourTime.Value.AddHours(13).ToString("D")
    End Sub
 
    Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click
        'Reset the labels to their defult value.
 
        lblIsraelTime.Text = "Hour:Minute (AM or PM)"
        lblRussiaTime.Text = "Hour:Minute (AM or PM)"
        lblSouthKoreaTime.Text = "Hour:Minute (AM or PM)"
        lblisraelDate.Text = "Date"
        lblRussiaDate.Text = "Date"
        lblSouthKoreaDate.Text = "Date"
        dtpYourTime.Focus()
 
 
    End Sub