DAR") = True
      barMain_ItemClick barMain.ItemIndex("CALENDAR")
   End With
   
End Sub

Private Sub Form_Resize()
On Error Resume Next
   picBanner.Move _
      barMain.Width + Me.ScaleX(4, vbPixels, Me.ScaleMode), _
      Me.ScaleY(4, vbPixels, Me.ScaleMode), _
      Me.ScaleWidth - (barMain.Width + Me.ScaleX(8, vbPixels, Me.ScaleMode))
   txtDemo.Move _
      picBanner.left, _
      txtDemo.tOp, _
      picBanner.Width, _
      Me.ScaleHeight - txtDemo.tOp - Me.ScaleY(4, vbPixels, Me.ScaleMode)
End Su