Private Sub t_Elapsed(ByVal sender As Object, ByVal e As _
  Timers.ElapsedEventArgs) Handles t.Elapsed
			lblServerTime.Text = "Serverzeit: "& Date.Now
			Dim dtServerOnlineTime As Date
			If Not lblServerOnlineTime.Text = "Online seit: Server ist Offline" Then
				If blnServerOnline = True Then
					Dim strLastTime As String = Mid(lblServerOnlineTime.Text, 14, 8)
					dtServerOnlineTime = CType(strLastTime, Date)
					lblServerOnlineTime.Text = "Online seit: "& CStr(dtServerOnlineTime)
				Else
					dtServerOnlineTime = CType("00:00:00", Date)
					lblServerOnlineTime.Text = "Online seit: "& CStr(dtServerOnlineTime)
				End If
			End If
		End Sub