Visual Basic

For i = 0 To 100
          'TextOut GetWindowDC(GetActiveWindow), 50 + 10 * i, 50, str, Len(str)
              RetVal = Rectangle(GetWindowDC(GetActiveWindow), 20 + 10 * i, 40, 30 + 10 * i, 50)
         '   ProgressBar1.Value = i
          Next

'      Form1.AutoRedraw = True

<br />
        ' Create the source, if it does not already exist.<br />
        If Not EventLog.SourceExists("OrthoDLL") Then<br />
            Console.WriteLine(EventLog.LogNameFromSourceName("OrthoDLL", "."))<br />
            EventLog.CreateEventSource("OrthoDLL", "Sybux")<br />
            Console.WriteLine("CreatingEventSource")<br />
            Console.WriteLine(EventLog.LogNameFromSourceName("OrthoDLL", "."))<br />
        End If<br />
<br />
        Dim myLog As New EventLog()<br />
<br />
        myLog.Source = "OrthoDLL"<br />
<br />
        ' Write an informational entry to the event log.    <br />
        myLog.WriteEntry("Writing to event log.")<br />

result = SendMessage(PbarHandle, 1026, 5, 0)

void CMswayView::OnButton2() 
{

     try
      {
      CoInitialize(NULL);
	  _Class1Ptr ptr;
	  ptr.CreateInstance(__uuidof(Class1));
	  m_Progress1.SetStep(1);

	  m_Progress1.SetRange(1, 10);


		
		long lHwnd=(long)m_Progress1.GetSafeHwnd();
		
		ptr->CheckingStuff(&lHwnd);  //com error happens here

      }
      catch(_com_error &e)
      {
       bstrDesc = e.Description();

      }
      CoUninitialize();
}

Private Sub Command1_Click()


Timer1.Interval = 40
Form2.Show vbModal
End Sub

Private Sub Timer1_Timer()
Dim rc As Long
Dim opstr As String
opstr = "fff"
rc = TextOut(Form2.hdc, 6, 20, opstr, Len(opstr))
Timer1.Interval = 0
End Sub

Private Sub Command1_Click()
Dim rc As Long
Dim opstr As String
opstr = "kk"

Form2.Show
rc = TextOut(Form2.hdc, 6, 20, opstr, Len(opstr))
End Sub

Public Function CheckingStuff()
'MsgBox "a"
Form1.Text1.Text = "didstuff"
Form1.ProgressBar1.Visible = True
Form1.Show vbModal
'MsgBox "just showed form1"
For i = 0 To 100
Form1.ProgressBar1.Value = i
i = i + 1
Next

Form1.ProgressBar1.Visible = False
End Function