Visual Basic

MsgBox(getlabel(DayOfWeek.Sunday, 1))
MsgBox(getlabel(getCurrentDayOfWeek("su"), 1))

Function getlabel(ByVal day As DayOfWeek, ByVal calendarRow As Integer) As String
    Select Case day  'Get a label name
        Case DayOfWeek.Sunday
            Select Case calendarRow
                Case 1
                    Return "Sunday"
            End Select
        Case DayOfWeek.Monday
            Select Case calendarRow
                Case 1
                    Return "Monday"
            End Select
        Case DayOfWeek.Tuesday
            Select Case calendarRow
                Case 1
                    Return "Tuesday"
            End Select
    End Select
End Function

.SetApartmentState(ApartmentState.STA)

.SetApartmentState(ApartmentState.STA)

Public Delegate myDelegate()

Form1.TextBox1.Invoke(New myDelegate(AddressOf CheckTextBox1), New Object() {})

Public Sub ChecktextBox1()
     IF Form1.TextBox1.Text = "ABC..." Then
         'Do something
     End If
End Sub

reportThread = New Thread(AddressOf ProcessReport)
With reportThread
    .Priority = ThreadPriority.AboveNormal
    .IsBackground = True
    .Start()
End With

With frmDiscoveryII
    Select Case True
        Case .rbReportJourneySummary.Checked
             ...
        Case .rbReportIdle.Checked
             ...

Sub WHATEVER
frmDiscoveryII.rbReportJourneySummary.Invoke(New myDelegate(AddressOf ProcessReport), New Object() {})
frmDiscoveryII.rbReportIdle.Invoke(New myDelegate(AddressOf ProcessReport), New Object() {})
ProcessReport
END SUB

Dave Kreskowiak wrote:

previous versions of VB were not OOP compliant. They allowed you to get into vary bad practices, which VB.NET now, thankfully, prevents you from using since it's now completely object oriented.

farmer wrote:

System.Diagnostics.Process.start("c:\test.edp")

Dim newProc As Process = Process.Start("C:\test.edp")
... do something that waits for the process to complete it's work
newProc.Close()

I am using System.Diagnostics.Process.start("c:\test.edp")

Dim g As Graphics = Me.Creategraphics 'or use other control on which you are drawing ur string.
            Dim str As String = "Your String"
            Dim myfont As New Font("Times New Roman", 16, FontStyle.Regular)
            Dim txtsize As SizeF
            txtsize = g.MeasureString(str, myfont)
            Dim rect As RectangleF = New RectangleF(New PointF(0, 0), txtsize)
            Dim mybrush As Brush = New LinearGradientBrush(rect, Color.Blue, Color.Blue, LinearGradientMode.ForwardDiagonal)
            g.DrawString(str, myfont, mybrush, New Point(20,20))

Hope,you got what you wanted!