VB Code:
Private Sub Command1_Click()
Dim Rover As CDog
Dim date1 As Date, date2 As Date
Dim i As Long
date1 = Now
For i = 1 To 50000000
Rover.strVar = "Rover"
Rover.lngVar = i
Rover.dblVar = i / 10000000
Next i
date2 = Now
MsgBox (DateDiff("s", date1, date2))
End Sub
VB Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Rover As New Cdog()
Dim i As Long
Dim date1, date2 As Date
date1 = Now
For i = 1 To 50000000
Rover.dblVar = i / 10000
Rover.strVar = "Rover"
Rover.lngVar = i
Next
date2 = Now
MessageBox.Show(DateDiff(DateInterval.Second, date1, date2))
End Sub