بر روی فرم کلیک راست کنید و پراپرتی بزنید و از قسمت مربوطه خاصیت کی پرویو رو در حالت ترو قرار بدین این خاصیت به طور پیش فرض فالسه و تا ترو نشه هیچ کلیدی تو برنامه شرت کات نمیشه حتی کدتون درست باشه زیر کد شرت کات باید فرمان مربوطه صدا زده بشه نه فقط اون بنویسین یعنی     (  ) call load_save  

Private Sub frm_vira_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
        Select Case e.KeyCode
            Case Keys.F4
              () Call load_in
            Case Keys.F5
               () Call save_1
        End Select
    End Sub

این کد صحیح هست