Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
Dim g As Graphics = System.Drawing.Graphics.FromHwnd(PB.Handle) Dim g1 As Graphics = System.Drawing.Graphics.FromHwnd(PB2.Handle) For i = 1 To CellWidth For l = Pointer1 + 1 To Pointer1 + 1 + CellHeight 'draw the '1's' as black If Mid$(CellString(i), l, 1) = "1" Then g.DrawEllipse(Pens.Black, i - 1, CellHeight - (l - Pointer1), 1, 1) g1.DrawEllipse(Pens.Black, i - 1, CellHeight - (l - Pointer1), 1, 1) Else g.DrawEllipse(Pens.Khaki, i - 1, CellHeight - (l - Pointer1), 1, 1) g1.DrawEllipse(Pens.DarkKhaki, i - 1, CellHeight - (l - Pointer1), 1, 1) End If Next l Next i ICount = ICount + 1 If j = 0 Then IList1A.Images.Add(PB.Image) IList1B.Images.Add(PB2.Image)
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.