Visual Basic

Dim newSheet As Worksheet
Set newSheet = Sheets.Add()
newSheet.Name = Sheet1.Range("someCellAddress").Value

Public Class Form1
    Inherits System.Windows.Forms.Form
 
    Private RunUnattended As Boolean = False
 
    <STAThread()> _
    Shared Sub Main(ByVal cmdArgs() As String)
        For Each cmd As String In cmdArgs
            If cmd = "myOption" Then
                RunUnattended = True
            End If
        Next
 
        If RunUnattended Then
            ' Run your work code here...
        Else
            Application.Run(New Form1)
        End If
 
    ...

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Label1.Text = DateTime.Now().ToString("HH:mm:ss")
    Shutdown()
End Sub
 
Private Sub Shutdown()
    ' This can be rewritten even shorter, but this is of a level that you should easily understand.
    Dim StartTime As New DateTime(Now.Year, Now.Month, Now.Day, 6, 0, 0)
    Dim EndTime As New DateTime(Now.Year, Now.Month, Now.Day, 11, 16, 0)
    If StartTime <= Now() AndAlso Now() <= EndTime Then
        Timer1.Stop()
        MsgBox("1st piece")
    End If
End Sub
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Timer1.Start()
End Sub

Xooku wrote:

So what do you start coding when finished with "hello world" messages.

Xooku wrote:

I made a change to this line in your code because it fires all the time
If StartTime <= Now() AndAlso Now() <= EndTime Then

Xooku wrote:

If I want this code to run in the background while other applications are running, will this affect other resources?

Public Class Form5<br />
    Dim t As System.Threading.Thread = Nothing<br />
<br />
    Private Sub Shutdown()<br />
<br />
        Do<br />
            System.Threading.Thread.Sleep(1000)<br />
            Dim StartTime As New DateTime(Now.Year, Now.Month, Now.Day, 6, 0, 0)<br />
            Dim EndTime As New DateTime(Now.Year, Now.Month, Now.Day, 11, 56, 0)<br />
<br />
            If Now() <= StartTime Or Now() >= EndTime Then<br />
                MsgBox("1st piece")<br />
                t.Abort()<br />
            End If<br />
        Loop<br />
<br />
    End Sub<br />
<br />
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
<br />
        t = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf Shutdown))<br />
        t.Start()<br />
<br />
    End Sub<br />
End Class

Xooku wrote:

In my previous reply I used a timer. Would this be the correct way then to use threading?

Xooku wrote:

If I want the user to change and save other start & end times and not hard code them the way I did, how would I do this?