با درود فراوان خدمت دوستان همیشه در صحنه کاربران عزیز

با این ساب هم میتونید اندازه تولبار رو برای تبلت یا گوشی بدست بیارید.

میتونید برای کارهای دیگه هم ازش استفاده کنید.

Sub ToolbarHeighte As Int
  Dim H As Int
  If GetDeviceLayoutValues.ApproximateScreenSize < 6.5 Then ' اگر گوشی بود
    h = 56dip
  Else ' اگر تبلت بود
    h = 64dip
  End If
  Return h
End Sub