Shops Not Showing Up

[William]

It looks fine, the only difference to my code is that I have:

Code:

If frmTrade.Visible = True Then
            frmTrade.Visible = False
        Else
            frmTrade.Show vbModal
        End If

But it should not matter anything.