Visual Basic

If you mean you're trying to place a bitmap on the MDI parent, then you need to place a picture box first and then load the bitmap into it!

This works but I am open to simpler suggestions Dim TheDate As Date ' Declare variables. Dim Msg Dim hey Dim Ms Dim instal Dim instmon Dim mon TheDate = Date Msg = DatePart("m", TheDate) ' Msg now equals the number current month number dayDate = Date Ms = DatePart("d", dayDate) 'Ms now equals the current day number If Ms >= 8 Then Msg = Msg + 1 End If instal = 15 & "th " If Msg = 1 Then mon = "January" End If If Msg = 2 Then mon = "February" End If If Msg = 3 Then mon = "March" End If If Msg = 4 Then mon = "April" End If If Msg = 5 Then mon = "May" End If If Msg = 6 Then mon = "June" End If If Msg = 7 Then mon = "July" End If If Msg = 8 Then mon = "August" End If If Msg = 9 Then mon = "September" End If If Msg = 10 Then mon = "October" End If If Msg = 11 Then mon = "November" End If If Msg = 12 Then mon = "December" End If ActiveSheet.Cells(87, 3).Value = instal & mon ActiveSheet.Cells(87, 4).Value = "monthly" ActiveSheet.Cells(88, 3).Value = "15-03-02" Else If freq = "weekly" Then ActiveSheet.Cells(31, 2).Value = (ActiveSheet.Cells(29, 8).Value) / (fred + 1) ActiveSheet.Cells(31, 1).Value = (("Less " & fred + 1) & " payments @") ActiveSheet.Cells(31, 8).Value = (ActiveSheet.Cells(31, 2).Value) * (fred + 1) Dim i As Integer Dim datTemp As Date For i = 1 To 7 datTemp = DateAdd("d", i, Date) If Weekday(datTemp) = vbMonday Then ActiveSheet.Cells(87, 3).Value = datTemp ActiveSheet.Cells(87, 4).Value = "weekly" ActiveSheet.Cells(88, 3).Value = "25-03-02" 'MsgBox "Next Monday will be " & datTemp End If Next

When someone pushes a button, an event has occured. So, if they click on a button named command1, you could put code in the "OnClick" event that will update the text of your text box like: Private Sub Command1_Click() Text1.Text = "You clicked the button." End Sub:)

Yep, becuase every time to Activate the workbook they are added. There is and Initialize event for a Workbook, but thats the only one to support the once only event. You could initialse it from there when the workbook opens. Giles

Thanks It needs the end ifs moved up under the if bits and the loop put above the rest of the code and now it works fine. Thanks for your help. The examples on the microsoft website were very poor. Your help has been invaluable.

You need the sp5 :-) Qapla

maybe the DoEvents will help you? Qapla

Well, you're not the only one who's confused here;-) What exactly are you trying to ask? -------------- "Criticism is often constructive because it makes you feel superior when you give it" -- Dogbert

Try this: On Error GoTo ErrHandler CommonDialog1.CancelError = True CommonDialog1.ShowPrinter Form1.PrintForm Exit Sub ErrHandler: End Sub If you have existing Error Handling code the ErrHandler would look a little different: ErrHandler: If Err.Number <> 32755 Then '32755 is the Error Number for Cancel being selected 'Process Error as usual End If End Sub Andy Gaskell, MCSD

Assuming you are talking Microsoft OS...MS Diagnostics holds most of what you've mentioned if not all and you could possibly get that info from the registry. I too would be interested in other methods to solve this problem. Best to you... \\Jim General System Information jamesdturner@hotmail.com jamesdturner@hotmail.com

Hehe, Why not try EasyGrid ActiveX? It'll be helpful. I guess it can be found in the web. But I forget the Url. Try at altavista.com with the keyword of easygrid activex. best wishes.